[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master c8acc5fd92: Introduce a new 'inhibit-isearch' text property

From: Juri Linkov
Subject: master c8acc5fd92: Introduce a new 'inhibit-isearch' text property
Date: Sat, 06 Nov 2021 20:45:34 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (x86_64-pc-linux-gnu)

@@ -3547,7 +3561,8 @@ isearch-search-string
 Optional third argument, if t, means if fail just return nil (no error).
   If not nil and not t, move to limit of search and return nil."
   (let* ((func (isearch-search-fun))
-         (pos1 (save-excursion (funcall func string bound noerror)))
+         (pos1 (save-excursion
+                 (isearch--search-skip-inhibited func string bound noerror)))
     (when (and
           ;; Avoid "obsolete" warnings for translation-table-for-input.
@@ -3570,7 +3585,8 @@ isearch-search-string
         (when translated
-              (if (setq pos2 (funcall func translated bound noerror))
+              (if (setq pos2 (isearch--search-skip-inhibited
+                              func string bound noerror))
                   (setq match-data (match-data t)))))
           (when (and pos2
                      (or (not pos1)

It would be much cleaner to implement this using isearch-filter-predicate.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]