diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 12:16:47 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-10-07 12:16:47 -0400 |
commit | d28581101adb967b32b2d1de93aba34ce69e15d2 (patch) | |
tree | 8d8177c0ac8e7829d74d8c89193942aec2e90f66 /lisp/eshell | |
parent | 67a20bb4b54de1faf840836015389bcc3d7a3eed (diff) | |
download | emacs-d28581101adb967b32b2d1de93aba34ce69e15d2.tar.gz emacs-d28581101adb967b32b2d1de93aba34ce69e15d2.tar.bz2 emacs-d28581101adb967b32b2d1de93aba34ce69e15d2.zip |
Remove redundant let-bindings of `inhibit-point-motion-hooks`
`inhibit-point-motion-hooks` has defaulted to t (and been declared
obsolete) since Emacs-25, so remove left-over bindings to that
now default value.
* lisp/dabbrev.el (dabbrev--search):
* lisp/format.el (format-insert-file):
* lisp/forms.el (forms-next-field, forms-prev-field):
* lisp/minibuf-eldef.el (minibuf-eldef-setup-minibuffer):
* lisp/simple.el (primitive-undo):
* lisp/cedet/semantic/edit.el (semantic-change-function):
* lisp/cedet/srecode/fields.el (srecode-field-mod-hook):
* lisp/cedet/srecode/insert.el (srecode-insert-fcn):
* lisp/erc/erc-button.el (erc-button-add-buttons):
* lisp/erc/erc.el (erc-display-line):
* lisp/eshell/em-script.el (eshell-source-file):
* lisp/eshell/em-smart.el (eshell-smart-scroll-window):
* lisp/eshell/esh-arg.el (eshell-parse-arguments):
* lisp/eshell/esh-cmd.el (eshell-with-temp-command):
* lisp/eshell/esh-mode.el (eshell-send-input, eshell-output-filter):
* lisp/gnus/gnus-art.el (gnus-with-article-headers)
(article-hide-headers, article-hide-boring-headers)
(article-decode-mime-words, article-decode-charset)
(article-decode-encoded-words, article-decode-group-name)
(article-decode-idna-rhs, article-hide-list-identifiers)
(article-strip-banner, article-really-strip-banner)
(article-strip-leading-blank-lines)
(article-strip-multiple-blank-lines, article-strip-leading-space)
(article-strip-trailing-space, article-strip-all-blank-lines)
(gnus-article-narrow-to-signature, gnus-article-show-hidden-text)
(article-date-ut, article-verify-x-pgp-sig)
(gnus-article-only-boring-p, gnus-article-highlight-signature)
(gnus-article-add-buttons, gnus-signature-toggle, gnus-button-push):
* lisp/gnus/gnus-cite.el (gnus-article-highlight-citation)
(gnus-article-fill-cited-article, gnus-article-hide-citation)
(gnus-article-toggle-cited-text, gnus-article-hide-citation-maybe)
(gnus-cite-parse-wrapper, gnus-cite-add-face, gnus-cite-toggle):
* lisp/gnus/gnus-gravatar.el (gnus-gravatar-insert):
* lisp/gnus/gnus-rfc1843.el (rfc1843-decode-article-body):
* lisp/gnus/gnus-sum.el (gnus-summary-toggle-header):
* lisp/gnus/gnus-util.el (gnus-fetch-field):
* lisp/gnus/message.el (message-fetch-field, message-reply)
(message-followup, message-hide-headers):
* lisp/net/goto-addr.el (goto-address-fontify):
* lisp/obsolete/linum.el (linum-update-window):
* lisp/play/zone.el (zone-shift-left, zone-shift-right)
(zone-fill-out-screen):
* lisp/progmodes/opascal.el (opascal-save-excursion):
* lisp/progmodes/vhdl-mode.el (vhdl-prepare-search-2):
* lisp/textmodes/enriched.el (enriched-encode):
* lisp/textmodes/flyspell.el (flyspell-word-search-backward)
(flyspell-word-search-forward):
* lisp/textmodes/table.el (table--point-entered/left-cell-function):
Remove let-binding of `inhibit-point-motion-hooks`.
Diffstat (limited to 'lisp/eshell')
-rw-r--r-- | lisp/eshell/em-script.el | 3 | ||||
-rw-r--r-- | lisp/eshell/em-smart.el | 3 | ||||
-rw-r--r-- | lisp/eshell/esh-arg.el | 3 | ||||
-rw-r--r-- | lisp/eshell/esh-cmd.el | 3 | ||||
-rw-r--r-- | lisp/eshell/esh-mode.el | 2 |
5 files changed, 4 insertions, 10 deletions
diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el index e0bcd8b099f..06ddda1424f 100644 --- a/lisp/eshell/em-script.el +++ b/lisp/eshell/em-script.el @@ -90,8 +90,7 @@ This includes when running `eshell-command'." "Execute a series of Eshell commands in FILE, passing ARGS. Comments begin with `#'." (let ((orig (point)) - (here (point-max)) - (inhibit-point-motion-hooks t)) + (here (point-max))) (goto-char (point-max)) (with-silent-modifications ;; FIXME: Why not use a temporary buffer and avoid this diff --git a/lisp/eshell/em-smart.el b/lisp/eshell/em-smart.el index 6768cee4c34..c52ce318997 100644 --- a/lisp/eshell/em-smart.el +++ b/lisp/eshell/em-smart.el @@ -197,8 +197,7 @@ The options are `begin', `after' or `end'." (defun eshell-smart-scroll-window (wind _start) "Scroll the given Eshell window WIND accordingly." (unless eshell-currently-handling-window - (let ((inhibit-point-motion-hooks t) - (eshell-currently-handling-window t)) + (let ((eshell-currently-handling-window t)) (with-selected-window wind (eshell-smart-redisplay))))) diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el index 576d32b8c5d..f87cc2f20aa 100644 --- a/lisp/eshell/esh-arg.el +++ b/lisp/eshell/esh-arg.el @@ -285,8 +285,7 @@ Point is left at the end of the arguments." (save-restriction (goto-char beg) (narrow-to-region beg end) - (let ((inhibit-point-motion-hooks t) - (args (list t)) + (let ((args (list t)) delim) (with-silent-modifications (remove-text-properties (point-min) (point-max) diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index 413336e3eb5..3f3a1616eee 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -372,8 +372,7 @@ The value returned is the last form in BODY." ;; Since parsing relies partly on buffer-local state ;; (e.g. that of `eshell-parse-argument-hook'), we need to ;; perform the parsing in the Eshell buffer. - (let ((begin (point)) end - (inhibit-point-motion-hooks t)) + (let ((begin (point)) end) (with-silent-modifications (insert reg) (setq end (point)) diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index 8f11e6f04a4..92523fd99ea 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el @@ -598,7 +598,6 @@ newline." ;; Note that the input string does not include its terminal newline. (let ((proc-running-p (and (eshell-head-process) (not queue-p))) - (inhibit-point-motion-hooks t) (inhibit-modification-hooks t)) (unless (and proc-running-p (not (eq (process-status @@ -687,7 +686,6 @@ newline." This is done after all necessary filtering has been done." (let ((oprocbuf (if process (process-buffer process) (current-buffer))) - (inhibit-point-motion-hooks t) (inhibit-modification-hooks t)) (when (and string oprocbuf (buffer-name oprocbuf)) (with-current-buffer oprocbuf |