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

Simplify lisp-el-font-lock-keywords-2 definition slightly

Browse source 
* lisp/emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-2):
Simplify slightly.
This commit is contained in:
Stefan Kangas 2022-07-03 23:05:50 +02:00
parent 05297e40c0
commit ae3416d694
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/lisp-mode.el
View file

@ -478,17 +478,15 @@ This will generate compile-time constants from BINDINGS."
(2 font-lock-constant-face nil t))
;; Words inside \\[], \\<>, \\{} or \\`' tend to be for
;; `substitute-command-keys'.
(,(rx "\\\\[" (group (regexp lisp-mode-symbol-regexp)) "]")
(,(rx "\\\\" (or (seq "[" (group-n 1 (regexp lisp-mode-symbol-regexp)) "]")
(seq "`" (group-n 1 (+ (regexp lisp-mode-symbol-regexp)
;; allow multiple words, e.g. "C-x a"
(? " ")))
"'")))
(1 font-lock-constant-face prepend))
(,(rx "\\\\" (or (seq "<" (group-n 1 (regexp lisp-mode-symbol-regexp)) ">")
(seq "{" (group-n 1 (regexp lisp-mode-symbol-regexp)) "}")))
(1 font-lock-variable-name-face prepend))
(,(rx "\\\\`" (group
(+ (regexp lisp-mode-symbol-regexp)
;; allow multiple words, e.g. "C-x a"
(? " ")))
"'")
(1 font-lock-constant-face prepend))
;; Ineffective backslashes (typically in need of doubling).
("\\(\\\\\\)\\([^\"\\]\\)"
(1 (elisp--font-lock-backslash) prepend))
@ -496,7 +494,7 @@ This will generate compile-time constants from BINDINGS."
(,(concat "[`‘']\\(" lisp-mode-symbol-regexp "\\)['’]")
(1 font-lock-constant-face prepend))
;; \\= tends to be an escape in doc strings.
("\\\\\\\\="
(,(rx "\\\\=")
(0 font-lock-builtin-face prepend))
;; Constant values.
(,(concat "\\_<:" lisp-mode-symbol-regexp "\\_>")