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

* lisp/hi-lock.el (hi-lock--regexps-at-point): Use proper-list-p, not consp.

Browse source
This commit is contained in:
Juri Linkov 2020-04-21 02:48:22 +03:00
parent ec24871932
commit 856d9378a4
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/hi-lock.el
View file

@ -567,8 +567,9 @@ in which case the highlighting will not update as you type."
(let* ((faces-after (get-text-property (point) 'face))
(faces-before
(unless (bobp) (get-text-property (1- (point)) 'face)))
(faces-after (if (consp faces-after) faces-after (list faces-after)))
(faces-before (if (consp faces-before) faces-before (list faces-before)))
;; Use proper-list-p to handle faces like (foreground-color . "red3")
(faces-after (if (proper-list-p faces-after) faces-after (list faces-after)))
(faces-before (if (proper-list-p faces-before) faces-before (list faces-before)))
(faces (mapcar #'hi-lock-keyword->face
hi-lock-interactive-patterns))
(face-after (seq-some (lambda (face) (car (memq face faces))) faces-after))