bug-gnu-emacs
[Top][All Lists]
Advanced

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

bug#64178: replace-regexp ignoring value of org-search-invisible


From: Juri Linkov
Subject: bug#64178: replace-regexp ignoring value of org-search-invisible
Date: Thu, 22 Jun 2023 19:52:25 +0300
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/30.0.50 (x86_64-pc-linux-gnu)

>>> Ok. Then, it is not an Org mode bug.
>>
>> Actually, Isearch never supported zero-length invisible matches.
>> The following condition was in isearch.el since day 1:
>>
>>   (defun isearch-range-invisible (beg end)
>>     "Return t if all the text from BEG to END is invisible."
>>     (when (/= beg end)
>>
>> So any zero-length match is deemed visible by Isearch.
>
> Which is unexpected.
> It is natural to expect that zero-width matches are considered invisible
> when the surrounding text is invisible.
>
> Also, is this documented anywhere?

This corner case doesn't seem to be documented.  Probably not for
emacs-29, but something like this would require more testing:

#+begin_src diff
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 3d2bbda4975..162b99233d7 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -3798,7 +3798,7 @@ isearch-close-unnecessary-overlays
 
 (defun isearch-range-invisible (beg end)
   "Return t if all the text from BEG to END is invisible."
-  (when (/= beg end)
+  (when t
     ;; Check that invisibility runs up to END.
     (save-excursion
       (goto-char beg)
@@ -3812,7 +3812,8 @@ isearch-range-invisible
        ;; If the following character is currently invisible,
        ;; skip all characters with that same `invisible' property value.
        ;; Do that over and over.
-       (while (and (< (point) end) (invisible-p (point)))
+       (while (and (or (= beg end (point)) (< (point) end))
+                    (invisible-p (point)))
          (if (invisible-p (get-text-property (point) 'invisible))
              (progn
                (goto-char (next-single-property-change (point) 'invisible
@@ -3843,7 +3844,7 @@ isearch-range-invisible
                    (setq crt-overlays (append ov-list crt-overlays)))))
            (goto-char (next-overlay-change (point)))))
        ;; See if invisibility reaches up thru END.
-       (if (>= (point) end)
+       (if (and (not (= beg end (point))) (>= (point) end))
            (if (and can-be-opened (consp crt-overlays))
                (progn
                  (unless (eq search-invisible 'can-be-opened)
#+end_src





reply via email to

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