diff options
| author | Stefan Monnier | 2020-11-04 11:37:00 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2020-11-04 11:37:00 -0500 |
| commit | d6cb106a374800b1899dca8fc25b8698e152e64c (patch) | |
| tree | 817fe4ee21595101235dfef2bcf60e9e95a31d45 | |
| parent | 43431f7108a6cb2af09b5f73092c7ab43f0d5199 (diff) | |
| download | emacs-d6cb106a374800b1899dca8fc25b8698e152e64c.tar.gz emacs-d6cb106a374800b1899dca8fc25b8698e152e64c.zip | |
* lisp-mode.el: Fix missing highlight of "hidden" string arg
* lisp/emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-2)
(lisp-cl-font-lock-keywords-2): Highlight "hidden arg" even if it
already has another face.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 352210f859d..268992295bf 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -478,7 +478,8 @@ This will generate compile-time constants from BINDINGS." | |||
| 478 | (3 'font-lock-regexp-grouping-construct prepend)) | 478 | (3 'font-lock-regexp-grouping-construct prepend)) |
| 479 | (lisp--match-hidden-arg | 479 | (lisp--match-hidden-arg |
| 480 | (0 '(face font-lock-warning-face | 480 | (0 '(face font-lock-warning-face |
| 481 | help-echo "Hidden behind deeper element; move to another line?"))) | 481 | help-echo "Hidden behind deeper element; move to another line?") |
| 482 | prepend)) | ||
| 482 | (lisp--match-confusable-symbol-character | 483 | (lisp--match-confusable-symbol-character |
| 483 | 0 '(face font-lock-warning-face | 484 | 0 '(face font-lock-warning-face |
| 484 | help-echo "Confusable character")) | 485 | help-echo "Confusable character")) |
| @@ -522,7 +523,8 @@ This will generate compile-time constants from BINDINGS." | |||
| 522 | (1 font-lock-keyword-face)) | 523 | (1 font-lock-keyword-face)) |
| 523 | (lisp--match-hidden-arg | 524 | (lisp--match-hidden-arg |
| 524 | (0 '(face font-lock-warning-face | 525 | (0 '(face font-lock-warning-face |
| 525 | help-echo "Hidden behind deeper element; move to another line?"))) | 526 | help-echo "Hidden behind deeper element; move to another line?") |
| 527 | prepend)) | ||
| 526 | )) | 528 | )) |
| 527 | "Gaudy level highlighting for Lisp modes."))) | 529 | "Gaudy level highlighting for Lisp modes."))) |
| 528 | 530 | ||