; Very minor simplification in bytecomp.el

* lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p):
Very minor simplification of 'rx' form.
This commit is contained in:
Stefan Kangas 2021-11-22 11:55:24 +01:00
parent 4a3ba8528b
commit d1a2e78b8c

View file

@ -1672,7 +1672,7 @@ URLs."
;; known at compile time. So instead, we assume that these
;; substitutions are of some length N.
(replace-regexp-in-string
(rx "\\" (or (seq "[" (* (not "]")) "]")))
(rx "\\" (seq "[" (* (not "]")) "]"))
(make-string byte-compile--wide-docstring-substitution-len ?x)
;; For literal key sequence substitutions (e.g. "\\`C-h'"), just
;; remove the markup as `substitute-command-keys' would.