mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

* help-fns.el (help-fns--first-release): Do not fail if no release is found.

Browse source
This commit is contained in:
Juanma Barranquero 2019-06-03 02:13:57 +02:00
parent e02f751e3f
commit 33ea72eb3c
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/help-fns.el
View file

@ -584,7 +584,7 @@ FILE is the file where FUNCTION was probably defined."
"including the match data.\n")))
(defun help-fns--first-release (symbol)
"Return the likely first release that defined SYMBOL."
"Return the likely first release that defined SYMBOL, or nil."
;; Code below relies on the etc/NEWS* files.
;; FIXME: Maybe we should also use the */ChangeLog* files when available.
;; FIXME: Maybe we should also look for announcements of the addition
@ -614,7 +614,8 @@ FILE is the file where FUNCTION was probably defined."
(when (or (null first) (version< version first))
(setq place (list f pos))
(setq first version)))))))))
(make-text-button first nil 'type 'help-news 'help-args place)
(when first
(make-text-button first nil 'type 'help-news 'help-args place))
first))
(add-hook 'help-fns-describe-function-functions