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

; Further minor simplification of rx form in bytecomp.el

Browse source 
* lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p):
Simplify even more.  Thanks to Mattias Engdegård <mattiase@acm.org>.
This commit is contained in:
Stefan Kangas 2021-11-22 16:11:45 +01:00
parent a5fbc21bc6
commit a59e35d79f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bytecomp.el
View file

@ -1672,12 +1672,12 @@ URLs."
;; known at compile time. So instead, we assume that these
;; substitutions are of some length N.
(replace-regexp-in-string
(rx "\\" (seq "[" (* (not "]")) "]"))
(rx "\\[" (* (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.
(replace-regexp-in-string
(rx "\\" (seq "`" (group (* (not "'"))) "'"))
(rx "\\`" (group (* (not "'"))) "'")
"\\1"
docstring)))))