diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-11-22 16:11:45 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-11-22 16:14:01 +0100 |
| commit | a59e35d79fae989d1047b23ddabc6f2c5bbe0097 (patch) | |
| tree | 498aa2507732eb4d45bb583192e8912efb31d185 /lisp/emacs-lisp/bytecomp.el | |
| parent | a5fbc21bc6c695623f8ae8c2df635e9d6220c483 (diff) | |
| download | emacs-a59e35d79fae989d1047b23ddabc6f2c5bbe0097.tar.gz emacs-a59e35d79fae989d1047b23ddabc6f2c5bbe0097.tar.bz2 emacs-a59e35d79fae989d1047b23ddabc6f2c5bbe0097.zip | |
; 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>.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 5dc03eac92b..566a3fdf99c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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))))) |