[Emacs-diffs] master c816e64: Fix probable typo in elisp-mode constant name

[Glenn Morris]

branch: master
commit c816e647ebf128eccc9df6ce3d64ebc5a5554aec
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Fix probable typo in elisp-mode constant name
    
    * lisp/progmodes/elisp-mode.el (emacs-lisp-byte-code-comment-re):
    Rename from emacs-list-byte-code-comment-re.  Add doc string.
    (elisp--byte-code-comment, elisp-byte-code-syntax-propertize):
    Update for the above.
---
 lisp/progmodes/elisp-mode.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 5ba0978..3b24a23 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -899,10 +899,11 @@ Semicolons start comments.
 ;;; Emacs Lisp Byte-Code mode
 
 (eval-and-compile
-  (defconst emacs-list-byte-code-comment-re
+  (defconst emacs-lisp-byte-code-comment-re
     (concat "\\(#\\)@\\([0-9]+\\) "
             ;; Make sure it's a docstring and not a lazy-loaded byte-code.
-            "\\(?:[^(]\\|([^\"]\\)")))
+            "\\(?:[^(]\\|([^\"]\\)")
+    "Regular expression matching a dynamic doc string comment."))
 
 (defun elisp--byte-code-comment (end &optional _point)
   "Try to syntactically mark the address@hidden ....^_ docstrings in byte-code 
files."
@@ -911,7 +912,7 @@ Semicolons start comments.
                (eq (char-after (nth 8 ppss)) ?#))
       (let* ((n (save-excursion
                   (goto-char (nth 8 ppss))
-                  (when (looking-at emacs-list-byte-code-comment-re)
+                  (when (looking-at emacs-lisp-byte-code-comment-re)
                     (string-to-number (match-string 2)))))
              ;; `maxdiff' tries to make sure the loop below terminates.
              (maxdiff n))
@@ -937,7 +938,7 @@ Semicolons start comments.
   (elisp--byte-code-comment end (point))
   (funcall
    (syntax-propertize-rules
-    (emacs-list-byte-code-comment-re
+    (emacs-lisp-byte-code-comment-re
      (1 (prog1 "< b" (elisp--byte-code-comment end (point))))))
    start end))