From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 22 Nov 2021 10:55:24 +0000 (+0100)
Subject: ; Very minor simplification in bytecomp.el
X-Git-Tag: emacs-29.0.90~2852^2~110
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1a2e78b8cab54c0d6d0f3c208b24f59545ffbb3;p=emacs.git

; Very minor simplification in bytecomp.el

* lisp/emacs-lisp/bytecomp.el (byte-compile--wide-docstring-p):
Very minor simplification of 'rx' form.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index bd74c79d717..e1c7ab4904a 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1672,7 +1672,7 @@ URLs."
     ;; known at compile time.  So instead, we assume that these
     ;; substitutions are of some length N.
     (replace-regexp-in-string
-     (rx "\\" (or (seq "[" (* (not "]")) "]")))
+     (rx "\\" (seq "[" (* (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.