diff options
| author | Juri Linkov <juri@linkov.net> | 2020-04-14 02:33:52 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2020-04-14 02:33:52 +0300 |
| commit | 7a9fb5d55c9bf612a38348d59e769ee915175e28 (patch) | |
| tree | 45b38be9f4d13d8a5a0069d20f940a8410b4350c /lisp/hi-lock.el | |
| parent | 086faceb1c395d24487c20bcb32ca710291bee41 (diff) | |
| download | emacs-7a9fb5d55c9bf612a38348d59e769ee915175e28.tar.gz emacs-7a9fb5d55c9bf612a38348d59e769ee915175e28.tar.bz2 emacs-7a9fb5d55c9bf612a38348d59e769ee915175e28.zip | |
Fix hi-lock test and add new test for unhighlight (bug#40337)
* lisp/hi-lock.el (hi-lock-unface-buffer): Use hi-lock--hashcons
only on strings, not lists.
* test/lisp/hi-lock-tests.el (hi-lock-bug26666): Revert previous change,
use "a" instead of "b".
(hi-lock-unhighlight): New test.
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 1d8dc0624ba..bf79e48f856 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -681,8 +681,8 @@ then remove all hi-lock highlighting." (delq keyword hi-lock-interactive-patterns)) (remove-overlays nil nil 'hi-lock-overlay-regexp - (hi-lock--hashcons (or (car (rassq keyword hi-lock-interactive-lighters)) - (car keyword)))) + (or (car (rassq keyword hi-lock-interactive-lighters)) + (hi-lock--hashcons (car keyword)))) (setq hi-lock-interactive-lighters (rassq-delete-all keyword hi-lock-interactive-lighters)) (font-lock-flush)))) |