procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/hi-lock.el: More fixes related to revert-buffer.

Browse source 
(hi-lock-set-pattern): Use the same propertized string
for 'overlay-put' property to allow 'remove-overlays'
to remove it while using 'eq' on the property value.
https://lists.gnu.org/archive/html/emacs-devel/2024-06/msg01001.html
This commit is contained in:
Juri Linkov 2024-06-28 09:42:43 +03:00
parent 6cc8ffae9a
commit bf862fc277
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/hi-lock.el
View file

@ -769,6 +769,7 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock search."
;; Hashcons the regexp, so it can be passed to remove-overlays later.
(setq regexp (hi-lock--hashcons regexp))
(setq subexp (or subexp 0))
(when lighter (setq lighter (propertize lighter 'regexp regexp)))
(let ((pattern (list (lambda (limit)
(let ((case-fold-search case-fold)
(search-spaces-regexp spaces-regexp))
@ -780,10 +781,7 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock search."
(assoc (or lighter regexp) hi-lock-interactive-lighters))
(add-to-list 'hi-lock--unused-faces (face-name face))
(push pattern hi-lock-interactive-patterns)
(push (cons (or (and lighter (propertize lighter 'regexp regexp))
regexp)
pattern)
hi-lock-interactive-lighters)
(push (cons (or lighter regexp) pattern) hi-lock-interactive-lighters)
(if (and font-lock-mode (font-lock-specified-p major-mode)
(not hi-lock-use-overlays))
(progn