From 32700f38fdd279cb79e3b78b35cb8666f5cd08a7 Mon Sep 17 00:00:00 2001 From: Thuna Date: Fri, 18 Nov 2022 15:56:38 +0100 Subject: 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) --- lisp/emacs-lisp/lisp-mode.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/lisp-mode.el') 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 -- cgit v1.2.3