summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorMattias EngdegÄrd <mattiase@acm.org>2022-07-04 15:54:14 +0200
committerMattias EngdegÄrd <mattiase@acm.org>2022-07-04 15:55:35 +0200
commitcfc754a67c049e9297c19eb5400f8ea38159a0d9 (patch)
treee6f8aafef57b6882e60eb746e7ce5a11da4b4e6a /lisp/emacs-lisp
parent0e5d790c6b8e38bbdffa146085771b7d10e6fc15 (diff)
downloademacs-cfc754a67c049e9297c19eb5400f8ea38159a0d9.tar.gz
; remove regexp ambiguity
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/lisp-mode.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 888e3397199..65f76a4fa35 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -478,10 +478,10 @@ This will generate compile-time constants from BINDINGS."
;; Words inside \\[], \\<>, \\{} or \\`' tend to be for
;; `substitute-command-keys'.
(,(rx "\\\\" (or (seq "[" (group-n 1 lisp-mode-symbol) "]")
- (seq "`" (group-n 1 (+ lisp-mode-symbol
- ;; allow multiple words, e.g. "C-x a"
- (? " ")))
- "'")))
+ (seq "`" (group-n 1
+ ;; allow multiple words, e.g. "C-x a"
+ lisp-mode-symbol (* " " lisp-mode-symbol))
+ "'")))
(1 font-lock-constant-face prepend))
(,(rx "\\\\" (or (seq "<" (group-n 1 lisp-mode-symbol) ">")
(seq "{" (group-n 1 lisp-mode-symbol) "}")))