From: Glenn Morris Date: Mon, 27 Nov 2017 22:55:53 +0000 (-0500) Subject: Fix probable typo in elisp-mode constant name X-Git-Tag: emacs-27.0.90~6120 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c816e647ebf128eccc9df6ce3d64ebc5a5554aec;p=emacs.git 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. --- diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 5ba09789097..3b24a23b893 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 #@NNN ....^_ 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))