mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Remove redundant let-bindings of inhibit-point-motion-hooks

Browse source 
`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`.
This commit is contained in:
Stefan Monnier 2022-10-07 12:16:47 -04:00
parent 67a20bb4b5
commit d28581101a
32 changed files with 183 additions and 259 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/cedet/semantic/edit.el
View file

@ -128,11 +128,9 @@ If nil, errors are still displayed, but informative messages are not."
"Provide a mechanism for semantic tag management. "Provide a mechanism for semantic tag management.
Argument START, END, and LENGTH specify the bounds of the change." Argument START, END, and LENGTH specify the bounds of the change."
(setq semantic-unmatched-syntax-cache-check t) (setq semantic-unmatched-syntax-cache-check t)
(let ((inhibit-point-motion-hooks t) (save-match-data
) (run-hook-with-args 'semantic-change-functions start end length)
(save-match-data ))
(run-hook-with-args 'semantic-change-functions start end length)
)))
(defun semantic-changes-in-region (start end &optional buffer) (defun semantic-changes-in-region (start end &optional buffer)
"Find change overlays which exist in whole or in part between START and END. "Find change overlays which exist in whole or in part between START and END.

4
lisp/cedet/srecode/fields.el
View file

@ -334,9 +334,7 @@ START and END are the bounds of the change.
PRE-LEN is used in the after mode for the length of the changed text." PRE-LEN is used in the after mode for the length of the changed text."
(when (and after (not undo-in-progress)) (when (and after (not undo-in-progress))
(let* ((field (overlay-get ol 'srecode)) (let* ((field (overlay-get ol 'srecode))
(inhibit-point-motion-hooks t) (inhibit-modification-hooks t))
(inhibit-modification-hooks t)
)
;; Sometimes a field is deleted, but we might still get a stray ;; Sometimes a field is deleted, but we might still get a stray
;; event. Let's just ignore those events. ;; event. Let's just ignore those events.
(when (slot-boundp field 'overlay) (when (slot-boundp field 'overlay)

4
lisp/cedet/srecode/insert.el
View file

@ -125,9 +125,7 @@ has set everything up already."
;; I tried `combine-after-change-calls', but it did not have ;; I tried `combine-after-change-calls', but it did not have
;; the effect I wanted. ;; the effect I wanted.
(let ((start (point))) (let ((start (point)))
(let ((inhibit-point-motion-hooks t) (let ((inhibit-modification-hooks t))
(inhibit-modification-hooks t)
)
(srecode--insert-into-buffer template dictionary) (srecode--insert-into-buffer template dictionary)
) )
;; Now call those after change functions. ;; Now call those after change functions.

3
lisp/dabbrev.el
View file

@ -985,9 +985,6 @@ Leaves point at the location of the start of the expansion."
"\\(" dabbrev--abbrev-char-regexp "\\)")) "\\(" dabbrev--abbrev-char-regexp "\\)"))
(pattern2 (concat (regexp-quote abbrev) (pattern2 (concat (regexp-quote abbrev)
"\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)")) "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)"))
;; This makes it possible to find matches in minibuffer prompts
;; even when they are "inviolable".
(inhibit-point-motion-hooks t)
found-string result) found-string result)
;; Limited search. ;; Limited search.
(save-restriction (save-restriction

1
lisp/erc/erc-button.el
View file

@ -248,7 +248,6 @@ specified by `erc-button-alist'."
(save-excursion (save-excursion
(with-syntax-table erc-button-syntax-table (with-syntax-table erc-button-syntax-table
(let ((buffer-read-only nil) (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t)
(inhibit-field-text-motion t) (inhibit-field-text-motion t)
(alist erc-button-alist) (alist erc-button-alist)
regexp) regexp)

3
lisp/erc/erc.el
View file

@ -2749,8 +2749,7 @@ current session. `active' means the current active buffer
buffer is used. `erc-display-line-1' is used to display STRING. buffer is used. `erc-display-line-1' is used to display STRING.
If STRING is nil, the function does nothing." If STRING is nil, the function does nothing."
(let ((inhibit-point-motion-hooks t) (let (new-bufs)
new-bufs)
(dolist (buf (cond (dolist (buf (cond
((bufferp buffer) (list buffer)) ((bufferp buffer) (list buffer))
((listp buffer) buffer) ((listp buffer) buffer)

3
lisp/eshell/em-script.el
View file

@ -90,8 +90,7 @@ This includes when running `eshell-command'."
"Execute a series of Eshell commands in FILE, passing ARGS. "Execute a series of Eshell commands in FILE, passing ARGS.
Comments begin with `#'." Comments begin with `#'."
(let ((orig (point)) (let ((orig (point))
(here (point-max)) (here (point-max)))
(inhibit-point-motion-hooks t))
(goto-char (point-max)) (goto-char (point-max))
(with-silent-modifications (with-silent-modifications
;; FIXME: Why not use a temporary buffer and avoid this ;; FIXME: Why not use a temporary buffer and avoid this

3
lisp/eshell/em-smart.el
View file

@ -197,8 +197,7 @@ The options are `begin', `after' or `end'."
(defun eshell-smart-scroll-window (wind _start) (defun eshell-smart-scroll-window (wind _start)
"Scroll the given Eshell window WIND accordingly." "Scroll the given Eshell window WIND accordingly."
(unless eshell-currently-handling-window (unless eshell-currently-handling-window
(let ((inhibit-point-motion-hooks t) (let ((eshell-currently-handling-window t))
(eshell-currently-handling-window t))
(with-selected-window wind (with-selected-window wind
(eshell-smart-redisplay))))) (eshell-smart-redisplay)))))

3
lisp/eshell/esh-arg.el
View file

@ -285,8 +285,7 @@ Point is left at the end of the arguments."
(save-restriction (save-restriction
(goto-char beg) (goto-char beg)
(narrow-to-region beg end) (narrow-to-region beg end)
(let ((inhibit-point-motion-hooks t) (let ((args (list t))
(args (list t))
delim) delim)
(with-silent-modifications (with-silent-modifications
(remove-text-properties (point-min) (point-max) (remove-text-properties (point-min) (point-max)

3
lisp/eshell/esh-cmd.el
View file

@ -372,8 +372,7 @@ The value returned is the last form in BODY."
;; Since parsing relies partly on buffer-local state ;; Since parsing relies partly on buffer-local state
;; (e.g. that of `eshell-parse-argument-hook'), we need to ;; (e.g. that of `eshell-parse-argument-hook'), we need to
;; perform the parsing in the Eshell buffer. ;; perform the parsing in the Eshell buffer.
(let ((begin (point)) end (let ((begin (point)) end)
(inhibit-point-motion-hooks t))
(with-silent-modifications (with-silent-modifications
(insert reg) (insert reg)
(setq end (point)) (setq end (point))

2
lisp/eshell/esh-mode.el
View file

@ -598,7 +598,6 @@ newline."
;; Note that the input string does not include its terminal newline. ;; Note that the input string does not include its terminal newline.
(let ((proc-running-p (and (eshell-head-process) (let ((proc-running-p (and (eshell-head-process)
(not queue-p))) (not queue-p)))
(inhibit-point-motion-hooks t)
(inhibit-modification-hooks t)) (inhibit-modification-hooks t))
(unless (and proc-running-p (unless (and proc-running-p
(not (eq (process-status (not (eq (process-status
@ -687,7 +686,6 @@ newline."
This is done after all necessary filtering has been done." This is done after all necessary filtering has been done."
(let ((oprocbuf (if process (process-buffer process) (let ((oprocbuf (if process (process-buffer process)
(current-buffer))) (current-buffer)))
(inhibit-point-motion-hooks t)
(inhibit-modification-hooks t)) (inhibit-modification-hooks t))
(when (and string oprocbuf (buffer-name oprocbuf)) (when (and string oprocbuf (buffer-name oprocbuf))
(with-current-buffer oprocbuf (with-current-buffer oprocbuf

7
lisp/format.el
View file

@ -440,10 +440,9 @@ a list (ABSOLUTE-FILE-NAME SIZE)."
(file-name-nondirectory file))))) (file-name-nondirectory file)))))
(list file fmt))) (list file fmt)))
(let (value size old-undo) (let (value size old-undo)
;; Record only one undo entry for the insertion. Inhibit point-motion and ;; Record only one undo entry for the insertion.
;; modification hooks as with `insert-file-contents'. ;; Inhibit modification hooks as with `insert-file-contents'.
(let ((inhibit-point-motion-hooks t) (let ((inhibit-modification-hooks t))
(inhibit-modification-hooks t))
;; Don't bind `buffer-undo-list' to t here to assert that ;; Don't bind `buffer-undo-list' to t here to assert that
;; `insert-file-contents' may record whether the buffer was unmodified ;; `insert-file-contents' may record whether the buffer was unmodified
;; before. ;; before.

6
lisp/forms.el
View file

@ -1928,8 +1928,7 @@ after writing out the data."
(let ((i 0) (let ((i 0)
(here (point)) (here (point))
there there
(cnt 0) (cnt 0))
(inhibit-point-motion-hooks t))
(if (zerop arg) (if (zerop arg)
(setq cnt 1) (setq cnt 1)
@ -1955,8 +1954,7 @@ after writing out the data."
(let ((i (length forms--markers)) (let ((i (length forms--markers))
(here (point)) (here (point))
there there
(cnt 0) (cnt 0))
(inhibit-point-motion-hooks t))
(if (zerop arg) (if (zerop arg)
(setq cnt 1) (setq cnt 1)

206
lisp/gnus/gnus-art.el
View file

@ -1765,7 +1765,6 @@ Initialized from `text-mode-syntax-table'.")
`(with-current-buffer gnus-article-buffer `(with-current-buffer gnus-article-buffer
(save-restriction (save-restriction
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(inhibit-point-motion-hooks t)
(case-fold-search t)) (case-fold-search t))
(article-narrow-to-head) (article-narrow-to-head)
,@forms)))) ,@forms))))
@ -1852,7 +1851,6 @@ Initialized from `text-mode-syntax-table'.")
(let ((inhibit-read-only t) (let ((inhibit-read-only t)
(case-fold-search t) (case-fold-search t)
(max (1+ (length gnus-sorted-header-list))) (max (1+ (length gnus-sorted-header-list)))
(inhibit-point-motion-hooks t)
(cur (current-buffer)) (cur (current-buffer))
ignored visible beg) ignored visible beg)
(save-excursion (save-excursion
@ -1919,8 +1917,7 @@ always hide."
(not gnus-show-all-headers)) (not gnus-show-all-headers))
(save-excursion (save-excursion
(save-restriction (save-restriction
(let ((inhibit-read-only t) (let ((inhibit-read-only t))
(inhibit-point-motion-hooks t))
(article-narrow-to-head) (article-narrow-to-head)
(dolist (elem gnus-boring-article-headers) (dolist (elem gnus-boring-article-headers)
(goto-char (point-min)) (goto-char (point-min))
@ -2567,8 +2564,7 @@ fill width."
"Decode all MIME-encoded words in the article." "Decode all MIME-encoded words in the article."
(interactive nil gnus-article-mode gnus-summary-mode) (interactive nil gnus-article-mode gnus-summary-mode)
(gnus-with-article-buffer (gnus-with-article-buffer
(let ((inhibit-point-motion-hooks t) (let ((mail-parse-charset gnus-newsgroup-charset)
(mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets (mail-parse-ignored-charsets
(with-current-buffer gnus-summary-buffer (with-current-buffer gnus-summary-buffer
gnus-newsgroup-ignored-charsets))) gnus-newsgroup-ignored-charsets)))
@ -2578,7 +2574,7 @@ fill width."
"Decode charset-encoded text in the article. "Decode charset-encoded text in the article.
If PROMPT (the prefix), prompt for a coding system to use." If PROMPT (the prefix), prompt for a coding system to use."
(interactive "P" gnus-article-mode) (interactive "P" gnus-article-mode)
(let ((inhibit-point-motion-hooks t) (case-fold-search t) (let ((case-fold-search t)
(inhibit-read-only t) (inhibit-read-only t)
(mail-parse-charset gnus-newsgroup-charset) (mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets (mail-parse-ignored-charsets
@ -2620,8 +2616,7 @@ If PROMPT (the prefix), prompt for a coding system to use."
(defun article-decode-encoded-words () (defun article-decode-encoded-words ()
"Remove encoded-word encoding from headers." "Remove encoded-word encoding from headers."
(let ((inhibit-point-motion-hooks t) (let ((mail-parse-charset gnus-newsgroup-charset)
(mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets (mail-parse-ignored-charsets
(save-excursion (condition-case nil (save-excursion (condition-case nil
(set-buffer gnus-summary-buffer) (set-buffer gnus-summary-buffer)
@ -2668,8 +2663,7 @@ If PROMPT (the prefix), prompt for a coding system to use."
(defun article-decode-group-name () (defun article-decode-group-name ()
"Decode group names in Newsgroups, Followup-To and Xref headers." "Decode group names in Newsgroups, Followup-To and Xref headers."
(let ((inhibit-point-motion-hooks t) (let ((inhibit-read-only t)
(inhibit-read-only t)
(method (gnus-find-method-for-group gnus-newsgroup-name)) (method (gnus-find-method-for-group gnus-newsgroup-name))
regexp) regexp)
(when (and (or gnus-group-name-charset-method-alist (when (and (or gnus-group-name-charset-method-alist
@ -2699,8 +2693,7 @@ The following headers are decoded: From:, To:, Cc:, Reply-To:,
Mail-Reply-To: and Mail-Followup-To:." Mail-Reply-To: and Mail-Followup-To:."
(when gnus-use-idna (when gnus-use-idna
(save-restriction (save-restriction
(let ((inhibit-point-motion-hooks t) (let ((inhibit-read-only t))
(inhibit-read-only t))
(article-narrow-to-head) (article-narrow-to-head)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "@[^ \t\n\r,>]*\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t) (while (re-search-forward "@[^ \t\n\r,>]*\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
@ -3171,8 +3164,7 @@ images if any to the browser, and deletes them when exiting the group
"Remove list identifiers from the Subject header. "Remove list identifiers from the Subject header.
The `gnus-list-identifiers' variable specifies what to do." The `gnus-list-identifiers' variable specifies what to do."
(interactive nil gnus-article-mode) (interactive nil gnus-article-mode)
(let ((inhibit-point-motion-hooks t) (let ((regexp (gnus-group-get-list-identifiers gnus-newsgroup-name))
(regexp (gnus-group-get-list-identifiers gnus-newsgroup-name))
(inhibit-read-only t)) (inhibit-read-only t))
(when regexp (when regexp
(save-excursion (save-excursion
@ -3221,34 +3213,32 @@ always hide."
(interactive nil gnus-article-mode) (interactive nil gnus-article-mode)
(save-excursion (save-excursion
(save-restriction (save-restriction
(let ((inhibit-point-motion-hooks t)) (when (gnus-parameter-banner gnus-newsgroup-name)
(when (gnus-parameter-banner gnus-newsgroup-name) (article-really-strip-banner
(article-really-strip-banner (gnus-parameter-banner gnus-newsgroup-name)))
(gnus-parameter-banner gnus-newsgroup-name))) (when gnus-article-address-banner-alist
(when gnus-article-address-banner-alist ;; Note that the From header is decoded here, so it is
;; Note that the From header is decoded here, so it is ;; required that the *-extract-address-components function
;; required that the *-extract-address-components function ;; supports non-ASCII text.
;; supports non-ASCII text. (let ((from (save-restriction
(let ((from (save-restriction (widen)
(widen) (article-narrow-to-head)
(article-narrow-to-head) (mail-fetch-field "from"))))
(mail-fetch-field "from")))) (when (and from
(when (and from (setq from
(setq from (cadr (funcall gnus-extract-address-components
(cadr (funcall gnus-extract-address-components from))))
from)))) (catch 'found
(catch 'found (dolist (pair gnus-article-address-banner-alist)
(dolist (pair gnus-article-address-banner-alist) (when (string-match (car pair) from)
(when (string-match (car pair) from) (throw 'found
(throw 'found (article-really-strip-banner (cdr pair))))))))))))
(article-really-strip-banner (cdr pair)))))))))))))
(defun article-really-strip-banner (banner) (defun article-really-strip-banner (banner)
"Strip the banner specified by the argument." "Strip the banner specified by the argument."
(save-excursion (save-excursion
(save-restriction (save-restriction
(let ((inhibit-point-motion-hooks t) (let ((gnus-signature-limit nil)
(gnus-signature-limit nil)
(inhibit-read-only t)) (inhibit-read-only t))
(article-goto-body) (article-goto-body)
(cond (cond
@ -3307,8 +3297,7 @@ always hide."
"Remove all blank lines from the beginning of the article." "Remove all blank lines from the beginning of the article."
(interactive nil gnus-article-mode) (interactive nil gnus-article-mode)
(save-excursion (save-excursion
(let ((inhibit-point-motion-hooks t) (let ((inhibit-read-only t))
(inhibit-read-only t))
(when (article-goto-body) (when (article-goto-body)
(while (and (not (eobp)) (while (and (not (eobp))
(looking-at "[ \t]*$")) (looking-at "[ \t]*$"))
@ -3349,8 +3338,7 @@ Point is left at the beginning of the narrowed-to region."
"Replace consecutive blank lines with one empty line." "Replace consecutive blank lines with one empty line."
(interactive nil gnus-article-mode) (interactive nil gnus-article-mode)
(save-excursion (save-excursion
(let ((inhibit-point-motion-hooks t) (let ((inhibit-read-only t))
(inhibit-read-only t))
;; First make all blank lines empty. ;; First make all blank lines empty.
(article-goto-body) (article-goto-body)
(while (re-search-forward "^[ \t]+$" nil t) (while (re-search-forward "^[ \t]+$" nil t)
@ -3368,8 +3356,7 @@ Point is left at the beginning of the narrowed-to region."
"Remove all white space from the beginning of the lines in the article." "Remove all white space from the beginning of the lines in the article."
(interactive nil gnus-article-mode) (interactive nil gnus-article-mode)
(save-excursion (save-excursion
(let ((inhibit-point-motion-hooks t) (let ((inhibit-read-only t))
(inhibit-read-only t))
(article-goto-body) (article-goto-body)
(while (re-search-forward "^[ \t]+" nil t) (while (re-search-forward "^[ \t]+" nil t)
(replace-match "" t t))))) (replace-match "" t t)))))
@ -3378,8 +3365,7 @@ Point is left at the beginning of the narrowed-to region."
"Remove all white space from the end of the lines in the article." "Remove all white space from the end of the lines in the article."
(interactive nil gnus-article-mode) (interactive nil gnus-article-mode)
(save-excursion (save-excursion
(let ((inhibit-point-motion-hooks t) (let ((inhibit-read-only t))
(inhibit-read-only t))
(article-goto-body) (article-goto-body)
(while (re-search-forward "[ \t]+$" nil t) (while (re-search-forward "[ \t]+$" nil t)
(replace-match "" t t))))) (replace-match "" t t)))))
@ -3395,37 +3381,35 @@ Point is left at the beginning of the narrowed-to region."
"Strip all blank lines." "Strip all blank lines."
(interactive nil gnus-article-mode) (interactive nil gnus-article-mode)
(save-excursion (save-excursion
(let ((inhibit-point-motion-hooks t) (let ((inhibit-read-only t))
(inhibit-read-only t))
(article-goto-body) (article-goto-body)
(while (re-search-forward "^[ \t]*\n" nil t) (while (re-search-forward "^[ \t]*\n" nil t)
(replace-match "" t t))))) (replace-match "" t t)))))
(defun gnus-article-narrow-to-signature () (defun gnus-article-narrow-to-signature ()
"Narrow to the signature; return t if a signature is found, else nil." "Narrow to the signature; return t if a signature is found, else nil."
(let ((inhibit-point-motion-hooks t)) (when (gnus-article-search-signature)
(when (gnus-article-search-signature) (forward-line 1)
(forward-line 1) ;; Check whether we have some limits to what we consider
;; Check whether we have some limits to what we consider ;; to be a signature.
;; to be a signature. (let ((limits (if (listp gnus-signature-limit) gnus-signature-limit
(let ((limits (if (listp gnus-signature-limit) gnus-signature-limit (list gnus-signature-limit)))
(list gnus-signature-limit))) limit limited)
limit limited) (while (setq limit (pop limits))
(while (setq limit (pop limits)) (if (or (and (integerp limit)
(if (or (and (integerp limit) (< (- (point-max) (point)) limit))
(< (- (point-max) (point)) limit)) (and (floatp limit)
(and (floatp limit) (< (count-lines (point) (point-max)) limit))
(< (count-lines (point) (point-max)) limit)) (and (functionp limit)
(and (functionp limit) (funcall limit))
(funcall limit)) (and (stringp limit)
(and (stringp limit) (not (re-search-forward limit nil t))))
(not (re-search-forward limit nil t)))) () ; This limit did not succeed.
() ; This limit did not succeed. (setq limited t
(setq limited t limits nil)))
limits nil))) (unless limited
(unless limited (narrow-to-region (point) (point-max))
(narrow-to-region (point) (point-max)) t))))
t)))))
(defun gnus-article-search-signature () (defun gnus-article-search-signature ()
"Search the current buffer for the signature separator. "Search the current buffer for the signature separator.
@ -3485,8 +3469,7 @@ means show, 0 means toggle."
(defun gnus-article-show-hidden-text (type &optional _dummy) (defun gnus-article-show-hidden-text (type &optional _dummy)
"Show all hidden text of type TYPE. "Show all hidden text of type TYPE.
Originally it is hide instead of DUMMY." Originally it is hide instead of DUMMY."
(let ((inhibit-read-only t) (let ((inhibit-read-only t))
(inhibit-point-motion-hooks t))
(gnus-remove-text-properties-when (gnus-remove-text-properties-when
'article-type type 'article-type type
(point-min) (point-max) (point-min) (point-max)
@ -3528,7 +3511,6 @@ possible values."
(interactive (list 'ut t) gnus-article-mode) (interactive (list 'ut t) gnus-article-mode)
(let* ((case-fold-search t) (let* ((case-fold-search t)
(inhibit-read-only t) (inhibit-read-only t)
(inhibit-point-motion-hooks t)
(visible-date (mail-fetch-field "Date")) (visible-date (mail-fetch-field "Date"))
pos date bface eface) pos date bface eface)
(save-excursion (save-excursion
@ -4351,8 +4333,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
(insert-buffer-substring gnus-original-article-buffer) (insert-buffer-substring gnus-original-article-buffer)
(setq items (split-string sig)) (setq items (split-string sig))
(message-narrow-to-head) (message-narrow-to-head)
(let ((inhibit-point-motion-hooks t) (let ((case-fold-search t))
(case-fold-search t))
;; Don't verify multiple headers. ;; Don't verify multiple headers.
(setq headers (mapconcat (lambda (header) (setq headers (mapconcat (lambda (header)
(concat header ": " (concat header ": "
@ -6811,16 +6792,15 @@ not have a face in `gnus-article-boring-faces'."
(boundp 'gnus-article-boring-faces) (boundp 'gnus-article-boring-faces)
(symbol-value 'gnus-article-boring-faces)) (symbol-value 'gnus-article-boring-faces))
(save-excursion (save-excursion
(let ((inhibit-point-motion-hooks t)) (catch 'only-boring
(catch 'only-boring (while (re-search-forward "\\b\\w\\w" nil t)
(while (re-search-forward "\\b\\w\\w" nil t) (forward-char -1)
(forward-char -1) (when (not (seq-intersection
(when (not (seq-intersection (gnus-faces-at (point))
(gnus-faces-at (point)) (symbol-value 'gnus-article-boring-faces)
(symbol-value 'gnus-article-boring-faces) #'eq))
#'eq)) (throw 'only-boring nil)))
(throw 'only-boring nil))) (throw 'only-boring t)))))
(throw 'only-boring t))))))
(defun gnus-article-refer-article () (defun gnus-article-refer-article ()
"Read article specified by message-id around point." "Read article specified by message-id around point."
@ -8112,18 +8092,17 @@ It does this by highlighting everything after
`gnus-signature-separator' using the face `gnus-signature'." `gnus-signature-separator' using the face `gnus-signature'."
(interactive nil gnus-article-mode gnus-summary-mode) (interactive nil gnus-article-mode gnus-summary-mode)
(gnus-with-article-buffer (gnus-with-article-buffer
(let ((inhibit-point-motion-hooks t)) (save-restriction
(save-restriction (when (and gnus-signature-face
(when (and gnus-signature-face (gnus-article-narrow-to-signature))
(gnus-article-narrow-to-signature)) (overlay-put (make-overlay (point-min) (point-max) nil t)
(overlay-put (make-overlay (point-min) (point-max) nil t) 'face gnus-signature-face)
'face gnus-signature-face) (widen)
(widen) (gnus-article-search-signature)
(gnus-article-search-signature) (let ((start (match-beginning 0))
(let ((start (match-beginning 0)) (end (set-marker (make-marker) (1+ (match-end 0)))))
(end (set-marker (make-marker) (1+ (match-end 0))))) (gnus-article-add-button start (1- end) 'gnus-signature-toggle
(gnus-article-add-button start (1- end) 'gnus-signature-toggle end))))))
end)))))))
(defun gnus-button-in-region-p (b e prop) (defun gnus-button-in-region-p (b e prop)
"Say whether PROP exists in the region." "Say whether PROP exists in the region."
@ -8135,8 +8114,7 @@ It does this by highlighting everything after
specified by `gnus-button-alist'." specified by `gnus-button-alist'."
(interactive nil gnus-article-mode gnus-summary-mode) (interactive nil gnus-article-mode gnus-summary-mode)
(gnus-with-article-buffer (gnus-with-article-buffer
(let ((inhibit-point-motion-hooks t) (let ((case-fold-search t)
(case-fold-search t)
(alist gnus-button-alist) (alist gnus-button-alist)
beg entry regexp) beg entry regexp)
;; We skip the headers. ;; We skip the headers.
@ -8292,19 +8270,18 @@ url is put as the `gnus-button-url' overlay property on the button."
(defun gnus-signature-toggle (end) (defun gnus-signature-toggle (end)
(gnus-with-article-buffer (gnus-with-article-buffer
(let ((inhibit-point-motion-hooks t)) (if (text-property-any end (point-max) 'article-type 'signature)
(if (text-property-any end (point-max) 'article-type 'signature) (progn
(progn (gnus-delete-wash-type 'signature)
(gnus-delete-wash-type 'signature) (gnus-remove-text-properties-when
(gnus-remove-text-properties-when 'article-type 'signature end (point-max)
'article-type 'signature end (point-max) (cons 'article-type (cons 'signature
(cons 'article-type (cons 'signature gnus-hidden-properties))))
gnus-hidden-properties)))) (gnus-add-wash-type 'signature)
(gnus-add-wash-type 'signature) (gnus-add-text-properties-when
(gnus-add-text-properties-when 'article-type nil end (point-max)
'article-type nil end (point-max) (cons 'article-type (cons 'signature
(cons 'article-type (cons 'signature gnus-hidden-properties))))
gnus-hidden-properties)))))
(let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist)) (let ((gnus-article-mime-handle-alist-1 gnus-article-mime-handle-alist))
(gnus-set-mode-line 'article)))) (gnus-set-mode-line 'article))))
@ -8313,8 +8290,7 @@ url is put as the `gnus-button-url' overlay property on the button."
(save-excursion (save-excursion
(let* ((marker (car marker-and-entry)) (let* ((marker (car marker-and-entry))
(entry (cadr marker-and-entry)) (entry (cadr marker-and-entry))
(regexp (car entry)) (regexp (car entry)))
(inhibit-point-motion-hooks t))
(goto-char marker) (goto-char marker)
;; This is obviously true, or something bad is happening :) ;; This is obviously true, or something bad is happening :)
;; But we need it to have the match-data ;; But we need it to have the match-data

22
lisp/gnus/gnus-cite.el
View file

@ -341,7 +341,6 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
(let ((buffer-read-only nil) (let ((buffer-read-only nil)
(alist gnus-cite-prefix-alist) (alist gnus-cite-prefix-alist)
(faces gnus-cite-face-list) (faces gnus-cite-face-list)
(inhibit-point-motion-hooks t)
face entry prefix skip numbers number face-alist) face entry prefix skip numbers number face-alist)
;; Loop through citation prefixes. ;; Loop through citation prefixes.
(while alist (while alist
@ -462,7 +461,6 @@ text (i.e., computer code and the like) will not be folded."
(interactive "P" gnus-article-mode gnus-summary-mode) (interactive "P" gnus-article-mode gnus-summary-mode)
(with-current-buffer gnus-article-buffer (with-current-buffer gnus-article-buffer
(let ((buffer-read-only nil) (let ((buffer-read-only nil)
(inhibit-point-motion-hooks t)
(marks (gnus-dissect-cited-text)) (marks (gnus-dissect-cited-text))
(adaptive-fill-mode nil) (adaptive-fill-mode nil)
(fill-column (if width (prefix-numeric-value width) fill-column))) (fill-column (if width (prefix-numeric-value width) fill-column)))
@ -536,7 +534,6 @@ always hide."
(with-current-buffer gnus-article-buffer (with-current-buffer gnus-article-buffer
(let ((buffer-read-only nil) (let ((buffer-read-only nil)
marks marks
(inhibit-point-motion-hooks t)
(props (nconc (list 'article-type 'cite) (props (nconc (list 'article-type 'cite)
gnus-hidden-properties)) gnus-hidden-properties))
(point (point-min)) (point (point-min))
@ -613,7 +610,6 @@ means show, nil means toggle."
(start (cadr args)) (start (cadr args))
(hidden (hidden
(text-property-any beg (1- end) 'article-type 'cite)) (text-property-any beg (1- end) 'article-type 'cite))
(inhibit-point-motion-hooks t)
buffer-read-only) buffer-read-only)
(when (or (null arg) (when (or (null arg)
(zerop arg) (zerop arg)
@ -673,7 +669,6 @@ See also the documentation for `gnus-article-highlight-citation'."
(let ((start (point)) (let ((start (point))
(atts gnus-cite-attribution-alist) (atts gnus-cite-attribution-alist)
(buffer-read-only nil) (buffer-read-only nil)
(inhibit-point-motion-hooks t)
(hidden 0) (hidden 0)
total) total)
(goto-char (point-max)) (goto-char (point-max))
@ -731,13 +726,12 @@ See also the documentation for `gnus-article-highlight-citation'."
(defun gnus-cite-parse-wrapper () (defun gnus-cite-parse-wrapper ()
;; Wrap chopped gnus-cite-parse. ;; Wrap chopped gnus-cite-parse.
(article-goto-body) (article-goto-body)
(let ((inhibit-point-motion-hooks t)) (save-excursion
(save-excursion (gnus-cite-parse-attributions))
(gnus-cite-parse-attributions)) (save-excursion
(save-excursion (gnus-cite-parse))
(gnus-cite-parse)) (save-excursion
(save-excursion (gnus-cite-connect-attributions)))
(gnus-cite-connect-attributions))))
(defun gnus-cite-parse () (defun gnus-cite-parse ()
;; Parse and connect citation prefixes and attribution lines. ;; Parse and connect citation prefixes and attribution lines.
@ -1020,8 +1014,7 @@ See also the documentation for `gnus-article-highlight-citation'."
(defun gnus-cite-add-face (number prefix face) (defun gnus-cite-add-face (number prefix face)
;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line. ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line.
(when face (when face
(let ((inhibit-point-motion-hooks t) (let (from to overlay)
from to overlay)
(goto-char (point-min)) (goto-char (point-min))
(when (zerop (forward-line (1- number))) (when (zerop (forward-line (1- number)))
(forward-char (length prefix)) (forward-char (length prefix))
@ -1041,7 +1034,6 @@ See also the documentation for `gnus-article-highlight-citation'."
(gnus-cite-parse-maybe nil t) (gnus-cite-parse-maybe nil t)
(let ((buffer-read-only nil) (let ((buffer-read-only nil)
(numbers (cdr (assoc prefix gnus-cite-prefix-alist))) (numbers (cdr (assoc prefix gnus-cite-prefix-alist)))
(inhibit-point-motion-hooks t)
number) number)
(while numbers (while numbers
(setq number (car numbers) (setq number (car numbers)

1
lisp/gnus/gnus-gravatar.el
View file

@ -87,7 +87,6 @@ callback for `gravatar-retrieve'."
(let ((real-name (car address)) (let ((real-name (car address))
(mail-address (cadr address)) (mail-address (cadr address))
(mark (point-marker)) (mark (point-marker))
(inhibit-point-motion-hooks t)
(case-fold-search t)) (case-fold-search t))
(save-restriction (save-restriction
(article-narrow-to-head) (article-narrow-to-head)

1
lisp/gnus/gnus-group.el
View file

@ -2651,6 +2651,7 @@ If EXCLUDE-GROUP, do not go to that group."
(and best-point (gnus-group-group-name)))) (and best-point (gnus-group-group-name))))
;; Is there something like an after-point-motion-hook? ;; Is there something like an after-point-motion-hook?
;; FIXME: There's `cursor-sensor-mode's `cursor-sensor-functions' property.
;; (inhibit-point-motion-hooks?). Is there a tool-bar-update function? ;; (inhibit-point-motion-hooks?). Is there a tool-bar-update function?
;; (defun gnus-group-menu-bar-update () ;; (defun gnus-group-menu-bar-update ()

3
lisp/gnus/gnus-rfc1843.el
View file

@ -40,8 +40,7 @@
(save-excursion (save-excursion
(save-restriction (save-restriction
(message-narrow-to-head) (message-narrow-to-head)
(let* ((inhibit-point-motion-hooks t) (let* ((case-fold-search t)
(case-fold-search t)
(ct (message-fetch-field "Content-Type" t)) (ct (message-fetch-field "Content-Type" t))
(ctl (and ct (mail-header-parse-content-type ct)))) (ctl (and ct (mail-header-parse-content-type ct))))
(if (and ctl (not (string-search "/" (car ctl)))) (if (and ctl (not (string-search "/" (car ctl))))

1
lisp/gnus/gnus-sum.el
View file

@ -9856,7 +9856,6 @@ If ARG is a negative number, hide the unwanted header lines."
(widen) (widen)
(article-narrow-to-head) (article-narrow-to-head)
(let* ((inhibit-read-only t) (let* ((inhibit-read-only t)
(inhibit-point-motion-hooks t)
(hidden (if (numberp arg) (hidden (if (numberp arg)
(>= arg 0) (>= arg 0)
(or (or

5
lisp/gnus/gnus-util.el
View file

@ -166,9 +166,8 @@ is slower."
(require 'message) (require 'message)
(save-excursion (save-excursion
(save-restriction (save-restriction
(let ((inhibit-point-motion-hooks t)) (nnheader-narrow-to-headers)
(nnheader-narrow-to-headers) (message-fetch-field field))))
(message-fetch-field field)))))
(defun gnus-fetch-original-field (field) (defun gnus-fetch-original-field (field)
"Fetch FIELD from the original version of the current article." "Fetch FIELD from the original version of the current article."

6
lisp/gnus/message.el
View file

@ -2172,8 +2172,7 @@ If FIRST is non-nil, only the first value is returned.
The buffer is expected to be narrowed to just the header of the message; The buffer is expected to be narrowed to just the header of the message;
see `message-narrow-to-headers-or-head'." see `message-narrow-to-headers-or-head'."
(let* ((inhibit-point-motion-hooks t) (let* ((value (mail-fetch-field header nil (not first))))
(value (mail-fetch-field header nil (not first))))
(when value (when value
(while (string-match "\n[\t ]+" value) (while (string-match "\n[\t ]+" value)
(setq value (replace-match " " t t value))) (setq value (replace-match " " t t value)))
@ -7309,7 +7308,6 @@ specified by FUNCTIONS, if non-nil, or by the variable
(let ((cur (current-buffer)) (let ((cur (current-buffer))
from subject date from subject date
references message-id follow-to references message-id follow-to
(inhibit-point-motion-hooks t)
(message-this-is-mail t) (message-this-is-mail t)
gnus-warning) gnus-warning)
(save-restriction (save-restriction
@ -7370,7 +7368,6 @@ If TO-NEWSGROUPS, use that as the new Newsgroups line."
(let ((cur (current-buffer)) (let ((cur (current-buffer))
from subject date reply-to mrt mct from subject date reply-to mrt mct
references message-id follow-to references message-id follow-to
(inhibit-point-motion-hooks t)
(message-this-is-news t) (message-this-is-news t)
followup-to distribution newsgroups gnus-warning posted-to) followup-to distribution newsgroups gnus-warning posted-to)
(save-restriction (save-restriction
@ -8609,7 +8606,6 @@ From headers in the original article."
(let ((regexps (if (stringp message-hidden-headers) (let ((regexps (if (stringp message-hidden-headers)
(list message-hidden-headers) (list message-hidden-headers)
message-hidden-headers)) message-hidden-headers))
(inhibit-point-motion-hooks t)
(inhibit-modification-hooks t) (inhibit-modification-hooks t)
end-of-headers) end-of-headers)
(when regexps (when regexps

3
lisp/minibuf-eldef.el
View file

@ -110,8 +110,7 @@ should be displayed in its place.")
"Set up a minibuffer for `minibuffer-electric-default-mode'. "Set up a minibuffer for `minibuffer-electric-default-mode'.
The prompt and initial input should already have been inserted." The prompt and initial input should already have been inserted."
(let ((regexps minibuffer-default-in-prompt-regexps) (let ((regexps minibuffer-default-in-prompt-regexps)
(match nil) (match nil))
(inhibit-point-motion-hooks t))
(save-excursion (save-excursion
(save-restriction (save-restriction
;; Narrow to only the prompt. ;; Narrow to only the prompt.

89
lisp/net/goto-addr.el
View file

@ -164,52 +164,51 @@ and `goto-address-fontify-p'."
;; Clean up from any previous go. ;; Clean up from any previous go.
(goto-address-unfontify (or start (point-min)) (or end (point-max))) (goto-address-unfontify (or start (point-min)) (or end (point-max)))
(save-excursion (save-excursion
(let ((inhibit-point-motion-hooks t)) (goto-char (or start (point-min)))
(when (or (eq t goto-address-fontify-maximum-size)
(< (- (or end (point-max)) (point))
goto-address-fontify-maximum-size))
(while (re-search-forward goto-address-url-regexp end t)
(let* ((s (match-beginning 0))
(e (match-end 0))
this-overlay)
(when (or (not goto-address-prog-mode)
;; This tests for both comment and string
;; syntax.
(nth 8 (syntax-ppss)))
(setq this-overlay (make-overlay s e))
(and goto-address-fontify-p
(overlay-put this-overlay 'face goto-address-url-face))
(overlay-put this-overlay 'evaporate t)
(overlay-put this-overlay
'mouse-face goto-address-url-mouse-face)
(overlay-put this-overlay 'follow-link t)
(overlay-put this-overlay
'help-echo "mouse-2, C-c RET: follow URL")
(overlay-put this-overlay
'keymap goto-address-highlight-keymap)
(overlay-put this-overlay 'goto-address t))))
(goto-char (or start (point-min))) (goto-char (or start (point-min)))
(when (or (eq t goto-address-fontify-maximum-size) (while (re-search-forward goto-address-mail-regexp end t)
(< (- (or end (point-max)) (point)) (let* ((s (match-beginning 0))
goto-address-fontify-maximum-size)) (e (match-end 0))
(while (re-search-forward goto-address-url-regexp end t) this-overlay)
(let* ((s (match-beginning 0)) (when (or (not goto-address-prog-mode)
(e (match-end 0)) ;; This tests for both comment and string
this-overlay) ;; syntax.
(when (or (not goto-address-prog-mode) (nth 8 (syntax-ppss)))
;; This tests for both comment and string (setq this-overlay (make-overlay s e))
;; syntax. (and goto-address-fontify-p
(nth 8 (syntax-ppss))) (overlay-put this-overlay 'face goto-address-mail-face))
(setq this-overlay (make-overlay s e)) (overlay-put this-overlay 'evaporate t)
(and goto-address-fontify-p (overlay-put this-overlay 'mouse-face
(overlay-put this-overlay 'face goto-address-url-face)) goto-address-mail-mouse-face)
(overlay-put this-overlay 'evaporate t) (overlay-put this-overlay 'follow-link t)
(overlay-put this-overlay (overlay-put this-overlay
'mouse-face goto-address-url-mouse-face) 'help-echo "mouse-2, C-c RET: mail this address")
(overlay-put this-overlay 'follow-link t) (overlay-put this-overlay
(overlay-put this-overlay 'keymap goto-address-highlight-keymap)
'help-echo "mouse-2, C-c RET: follow URL") (overlay-put this-overlay 'goto-address t)))))))
(overlay-put this-overlay
'keymap goto-address-highlight-keymap)
(overlay-put this-overlay 'goto-address t))))
(goto-char (or start (point-min)))
(while (re-search-forward goto-address-mail-regexp end t)
(let* ((s (match-beginning 0))
(e (match-end 0))
this-overlay)
(when (or (not goto-address-prog-mode)
;; This tests for both comment and string
;; syntax.
(nth 8 (syntax-ppss)))
(setq this-overlay (make-overlay s e))
(and goto-address-fontify-p
(overlay-put this-overlay 'face goto-address-mail-face))
(overlay-put this-overlay 'evaporate t)
(overlay-put this-overlay 'mouse-face
goto-address-mail-mouse-face)
(overlay-put this-overlay 'follow-link t)
(overlay-put this-overlay
'help-echo "mouse-2, C-c RET: mail this address")
(overlay-put this-overlay
'keymap goto-address-highlight-keymap)
(overlay-put this-overlay 'goto-address t))))))))
(defun goto-address-fontify-region (start end) (defun goto-address-fontify-region (start end)
"Fontify URLs and e-mail addresses in the given region." "Fontify URLs and e-mail addresses in the given region."

5
lisp/obsolete/linum.el
View file

@ -209,10 +209,7 @@ Linum mode is a buffer-local minor mode."
(overlay-put ov 'before-string (overlay-put ov 'before-string
(propertize " " 'display `((margin left-margin) ,str))) (propertize " " 'display `((margin left-margin) ,str)))
(overlay-put ov 'linum-str str)))) (overlay-put ov 'linum-str str))))
;; Text may contain those nasty intangible properties, but that (forward-line)
;; shouldn't prevent us from counting those lines.
(let ((inhibit-point-motion-hooks t))
(forward-line))
(setq line (1+ line))) (setq line (1+ line)))
(when (display-graphic-p) (when (display-graphic-p)
(setq width (ceiling (setq width (ceiling

12
lisp/play/zone.el
View file

@ -204,8 +204,7 @@ If the element is a function or a list of a function and a number,
(insert s))) (insert s)))
(defun zone-shift-left () (defun zone-shift-left ()
(let ((inhibit-point-motion-hooks t) (let (s)
s)
(while (not (eobp)) (while (not (eobp))
(unless (eolp) (unless (eolp)
(setq s (buffer-substring (point) (1+ (point)))) (setq s (buffer-substring (point) (1+ (point))))
@ -216,8 +215,7 @@ If the element is a function or a list of a function and a number,
(defun zone-shift-right () (defun zone-shift-right ()
(goto-char (point-max)) (goto-char (point-max))
(let ((inhibit-point-motion-hooks t) (let (s)
s)
(while (not (bobp)) (while (not (bobp))
(unless (bolp) (unless (bolp)
(setq s (buffer-substring (1- (point)) (point))) (setq s (buffer-substring (1- (point)) (point)))
@ -448,8 +446,7 @@ If the element is a function or a list of a function and a number,
(defun zone-fill-out-screen (width height) (defun zone-fill-out-screen (width height)
(let ((start (window-start)) (let ((start (window-start))
(line (make-string width 32)) (line (make-string width 32)))
(inhibit-point-motion-hooks t))
(goto-char start) (goto-char start)
;; fill out rectangular ws block ;; fill out rectangular ws block
(while (progn (end-of-line) (while (progn (end-of-line)
@ -664,8 +661,7 @@ If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).")
(setq c (point)) (setq c (point))
(move-to-column 9) (move-to-column 9)
(setq col (cons (buffer-substring (point) c) col)) (setq col (cons (buffer-substring (point) c) col))
; (let ((inhibit-point-motion-hooks t)) (end-of-line 0)
(end-of-line 0);)
(forward-char -10)) (forward-char -10))
(let ((life-patterns (vector (let ((life-patterns (vector
(if (and col (search-forward "@" max t)) (if (and col (search-forward "@" max t))

3
lisp/progmodes/opascal.el
View file

@ -275,8 +275,7 @@ nested routine.")
(declare (debug t)) (declare (debug t))
`(save-excursion `(save-excursion
(save-match-data (save-match-data
(let ((inhibit-point-motion-hooks t) (let ((deactivate-mark nil))
(deactivate-mark nil))
(progn ,@forms))))) (progn ,@forms)))))

7
lisp/progmodes/vhdl-mode.el
View file

@ -2507,11 +2507,10 @@ consistent searching."
(defmacro vhdl-prepare-search-2 (&rest body) (defmacro vhdl-prepare-search-2 (&rest body)
"Enable case insensitive search, switch to syntax table that includes `_', "Enable case insensitive search, switch to syntax table that includes `_',
arrange to ignore `intangible' overlays, then execute BODY, and finally restore then execute BODY, and finally restore the old environment.
the old environment. Used for consistent searching." Used for consistent searching."
(declare (debug t)) (declare (debug t))
`(let ((case-fold-search t) ; case insensitive search `(let ((case-fold-search t)) ; case insensitive search
(inhibit-point-motion-hooks t))
;; use extended syntax table ;; use extended syntax table
(with-syntax-table vhdl-mode-ext-syntax-table (with-syntax-table vhdl-mode-ext-syntax-table
;; execute BODY safely ;; execute BODY safely

2
lisp/simple.el
View file

@ -3526,8 +3526,6 @@ Return what remains of the list."
;; In a writable buffer, enable undoing read-only text that is ;; In a writable buffer, enable undoing read-only text that is
;; so because of text properties. ;; so because of text properties.
(inhibit-read-only t) (inhibit-read-only t)
;; Don't let `intangible' properties interfere with undo.
(inhibit-point-motion-hooks t)
;; We use oldlist only to check for EQ. ++kfs ;; We use oldlist only to check for EQ. ++kfs
(oldlist buffer-undo-list) (oldlist buffer-undo-list)
(did-apply nil) (did-apply nil)

3
lisp/textmodes/enriched.el
View file

@ -325,8 +325,7 @@ the region, and the START and END of each region."
;;;###autoload ;;;###autoload
(defun enriched-encode (from to orig-buf) (defun enriched-encode (from to orig-buf)
(if enriched-verbose (message "Enriched: encoding document...")) (if enriched-verbose (message "Enriched: encoding document..."))
(let ((inhibit-read-only t) (let ((inhibit-read-only t))
(inhibit-point-motion-hooks t))
(save-restriction (save-restriction
(narrow-to-region from to) (narrow-to-region from to)
(delete-to-left-margin) (delete-to-left-margin)

2
lisp/textmodes/flyspell.el
View file

@ -1032,7 +1032,6 @@ Mostly we check word delimiters."
(defun flyspell-word-search-backward (word bound &optional ignore-case) (defun flyspell-word-search-backward (word bound &optional ignore-case)
(save-excursion (save-excursion
(let* ((r '()) (let* ((r '())
(inhibit-point-motion-hooks t)
(flyspell-not-casechars (flyspell-get-not-casechars)) (flyspell-not-casechars (flyspell-get-not-casechars))
(bound (if (and bound (bound (if (and bound
(> bound (point-min))) (> bound (point-min)))
@ -1066,7 +1065,6 @@ Mostly we check word delimiters."
(defun flyspell-word-search-forward (word bound) (defun flyspell-word-search-forward (word bound)
(save-excursion (save-excursion
(let* ((r '()) (let* ((r '())
(inhibit-point-motion-hooks t)
(flyspell-not-casechars (flyspell-get-not-casechars)) (flyspell-not-casechars (flyspell-get-not-casechars))
(bound (if (and bound (bound (if (and bound
(< bound (point-max))) (< bound (point-max)))

19
lisp/textmodes/table.el
View file

@ -5221,16 +5221,15 @@ instead of the current buffer and returns the OBJECT."
"Point has entered a cell. "Point has entered a cell.
Refresh the menu bar." Refresh the menu bar."
;; Avoid calling point-motion-hooks recursively. ;; Avoid calling point-motion-hooks recursively.
(let ((inhibit-point-motion-hooks t)) (force-mode-line-update)
(force-mode-line-update) (pcase dir
(pcase dir ('left
('left (setq table-mode-indicator nil)
(setq table-mode-indicator nil) (run-hooks 'table-point-left-cell-hook))
(run-hooks 'table-point-left-cell-hook)) ('entered
('entered (setq table-mode-indicator t)
(setq table-mode-indicator t) (table--warn-incompatibility)
(table--warn-incompatibility) (run-hooks 'table-point-entered-cell-hook))))
(run-hooks 'table-point-entered-cell-hook)))))
(defun table--warn-incompatibility () (defun table--warn-incompatibility ()
"If called from interactive operation warn the know incompatibilities. "If called from interactive operation warn the know incompatibilities.

2
lisp/textmodes/tex-mode.el
View file

@ -1039,7 +1039,7 @@ says which mode to use."
;; have files annotated with -*- LaTeX -*- (e.g. because they received ;; have files annotated with -*- LaTeX -*- (e.g. because they received
;; them from someone using AUCTeX). ;; them from someone using AUCTeX).
;; FIXME: Turn them into autoloads so that AUCTeX can override them ;; FIXME: Turn them into autoloads so that AUCTeX can override them
;; with it's own autoloads? Or maybe rely on `major-mode-remap-alist'? ;; with its own autoloads? Or maybe rely on `major-mode-remap-alist'?
;;;###autoload (defalias 'TeX-mode #'tex-mode) ;;;###autoload (defalias 'TeX-mode #'tex-mode)
;;;###autoload (defalias 'plain-TeX-mode #'plain-tex-mode) ;;;###autoload (defalias 'plain-TeX-mode #'plain-tex-mode)
;;;###autoload (defalias 'LaTeX-mode #'latex-mode) ;;;###autoload (defalias 'LaTeX-mode #'latex-mode)