]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/isearch.el (isearch-search): Don't bind `inhibit-point-motion-hooks`
authorStefan Monnier <monnier@iro.umontreal.ca>
Fri, 7 Oct 2022 18:07:17 +0000 (14:07 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Fri, 7 Oct 2022 18:07:17 +0000 (14:07 -0400)
The let-binding was added back in 1997 (commit 79c7a4fa5f974a9d3b)
"because we might have to search inside invisible and intangible text".
So it's been redundant since Emacs-25 changed the default to t.

lisp/isearch.el

index 3e840b014fc733999296db4181ec0992b46de5bf..bc3697deb0af981cd4f8095c7fec479e76259f1a 100644 (file)
@@ -3649,8 +3649,7 @@ Optional third argument, if t, means if fail just return nil (no error).
       (setq isearch-case-fold-search
            (isearch-no-upper-case-p isearch-string isearch-regexp)))
   (condition-case lossage
-      (let ((inhibit-point-motion-hooks isearch-invisible)
-           (inhibit-quit nil)
+      (let ((inhibit-quit nil)
            (case-fold-search isearch-case-fold-search)
            (search-invisible isearch-invisible)
            (retry t))