From a59e35d79fae989d1047b23ddabc6f2c5bbe0097 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 22 Nov 2021 16:11:45 +0100 Subject: [PATCH] ; Further minor simplification of rx form in bytecomp.el MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p): Simplify even more. Thanks to Mattias Engdegård . --- lisp/emacs-lisp/bytecomp.el | 4 ++-- 1 file 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))))) -- 2.39.5