mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

* lisp/isearch.el (isearch-delete-char): Reopen hidden overlays (bug#52248).

Browse Source 
(isearch-filter-visible): Move text-property-not-all higher
to not call isearch-range-invisible on inhibit-isearch text.
Remove min/max since arguments are always in the right order.
This commit is contained in:
Juri Linkov 2021-12-04 22:04:37 +02:00
parent 08782d58db
commit f247fa5d5c
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/isearch.el
View File

@ -2504,6 +2504,11 @@ If no input items have been entered yet, just beep."
(if (null (cdr isearch-cmds))
(ding)
(isearch-pop-state))
;; When going back to the hidden match, reopen it.
(when (and (eq search-invisible 'open) isearch-hide-immediately
isearch-other-end)
(isearch-range-invisible (min (point) isearch-other-end)
(max (point) isearch-other-end)))
(isearch-update))
(defun isearch-del-char (&optional arg)
@ -3787,10 +3792,9 @@ Isearch, at least partially, as determined by `isearch-range-invisible'.
If `search-invisible' is t, which allows Isearch matches inside
invisible text, this function will always return non-nil, regardless
of what `isearch-range-invisible' says."
(and (or (eq search-invisible t)
(not (isearch-range-invisible beg end)))
(not (text-property-not-all (min beg end) (max beg end)
'inhibit-isearch nil))))
(and (not (text-property-not-all beg end 'inhibit-isearch nil))
(or (eq search-invisible t)
(not (isearch-range-invisible beg end)))))
;; General utilities