[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a59e35d: ; Further minor simplification of rx form in bytecomp.el
From: |
Stefan Kangas |
Subject: |
master a59e35d: ; Further minor simplification of rx form in bytecomp.el |
Date: |
Mon, 22 Nov 2021 10:18:10 -0500 (EST) |
branch: master
commit a59e35d79fae989d1047b23ddabc6f2c5bbe0097
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
; 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>.
---
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 5dc03ea..566a3fd 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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a59e35d: ; Further minor simplification of rx form in bytecomp.el,
Stefan Kangas <=