diff options
| author | Thuna <thuna.cing@gmail.com> | 2022-11-18 15:56:38 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-02-12 04:15:07 +0100 |
| commit | 32700f38fdd279cb79e3b78b35cb8666f5cd08a7 (patch) | |
| tree | 58ec5cfe65b527e2486ddb907b7d7ba00eefa1f4 /lisp/emacs-lisp/lisp-mode.el | |
| parent | fb90e21af1b05d8cdeac9ae62b03b76ae9c74ae0 (diff) | |
| download | emacs-32700f38fdd279cb79e3b78b35cb8666f5cd08a7.tar.gz emacs-32700f38fdd279cb79e3b78b35cb8666f5cd08a7.tar.bz2 emacs-32700f38fdd279cb79e3b78b35cb8666f5cd08a7.zip | |
Highlight multiple symbols in single quotes in CL strings
* lisp/emacs-lisp/lisp-mode.el (lisp-cl-font-lock-keywords-2): When
multiple space-delimited symbols are single quoted together (e.g "`foo
bar'"), highlight them. (Bug#59360)
Diffstat (limited to 'lisp/emacs-lisp/lisp-mode.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 1349a5212ed..9bed4374dff 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -559,7 +559,9 @@ This will generate compile-time constants from BINDINGS." (,(concat "(" cl-errs-re "\\_>") (1 font-lock-warning-face)) ;; Words inside ‘’ and `' tend to be symbol names. - (,(concat "[`‘]\\(" (rx lisp-mode-symbol) "\\)['’]") + (,(concat "[`‘]\\(" + (rx (* lisp-mode-symbol (+ space)) lisp-mode-symbol) + "\\)['’]") (1 font-lock-constant-face prepend)) ;; Uninterned symbols, e.g., (defpackage #:my-package ...) ;; must come before keywords below to have effect |