From 698ff554ac2699ec48fefc85a1307cbc4a183b0d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 26 Jun 2019 10:03:48 -0400 Subject: * lisp/calc/calc-ext.el (math-scalarp): Fix typo --- lisp/help-fns.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/help-fns.el') diff --git a/lisp/help-fns.el b/lisp/help-fns.el index f036a5a4cbe..949def1bbe7 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -591,7 +591,7 @@ FILE is the file where FUNCTION was probably defined." ;; of the *packages* in which the function is defined. (let* ((name (symbol-name symbol)) (re (concat "\\_<" (regexp-quote name) "\\_>")) - (news (directory-files data-directory t "\\`NEWS.[1-9]")) + (news (directory-files data-directory t "\\`NEWS")) (place nil) (first nil)) (with-temp-buffer @@ -606,7 +606,7 @@ FILE is the file where FUNCTION was probably defined." ;; Almost all entries are of the form "* ... in Emacs NN.MM." ;; but there are also a few in the form "* Emacs NN.MM is a bug ;; fix release ...". - (if (not (re-search-backward "^\\*.* Emacs \\([0-9.]+[0-9]\\)" + (if (not (re-search-backward "^\\* .* Emacs \\([0-9.]+[0-9]\\)" nil t)) (message "Ref found in non-versioned section in %S" (file-name-nondirectory f)) @@ -615,8 +615,7 @@ FILE is the file where FUNCTION was probably defined." (setq place (list f pos)) (setq first version))))))))) (when first - (make-text-button first nil 'type 'help-news 'help-args place)) - first)) + (make-text-button first nil 'type 'help-news 'help-args place)))) (add-hook 'help-fns-describe-function-functions #'help-fns--mention-first-release) -- cgit v1.2.3