mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/hi-lock.el (hi-lock-revert-buffer-rehighlight): Restore same faces.

Browse Source 
After reverting the buffer apply all previous patterns with exactly
the same faces as were assigned to patterns before.
This commit is contained in:
Juri Linkov 2024-06-20 19:49:30 +03:00
parent 6c85b03111
commit a6296fda5e
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/hi-lock.el
View File

@ -868,11 +868,10 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock search."
Apply the previous patterns after reverting the buffer."
(when-let ((patterns hi-lock-interactive-lighters))
(lambda ()
(setq hi-lock-interactive-lighters nil
hi-lock-interactive-patterns nil)
(let ((hi-lock-auto-select-face t))
(dolist (pattern (reverse patterns))
(highlight-regexp (car pattern) (hi-lock-read-face-name)))))))
(when hi-lock-interactive-lighters
(hi-lock-unface-buffer t))
(dolist (pattern (reverse patterns))
(highlight-regexp (car pattern) (cadr (nth 1 (caddr pattern))))))))
(defvar hi-lock--hashcons-hash
(make-hash-table :test 'equal :weakness t)