Commit a59e35d7 authored by Stefan Kangas's avatar Stefan Kangas
Browse files

; Further minor simplification of rx form in bytecomp.el

* lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p):
Simplify even more.  Thanks to Mattias Engdegård <mattiase@acm.org>.
parent a5fbc21b
Pipeline #14141 failed with stages
in 132 minutes and 39 seconds
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment