diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2019-06-03 02:13:57 +0200 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2019-06-03 02:13:57 +0200 |
commit | 33ea72eb3c27f5ee5d76980d70ab335d7fa33db6 (patch) | |
tree | cc858ece151d785b92e2a8dce5e880e4d7c6f1dc | |
parent | e02f751e3fd4cfe8df7e21998477a55eac648575 (diff) | |
download | emacs-33ea72eb3c27f5ee5d76980d70ab335d7fa33db6.tar.gz |
* help-fns.el (help-fns--first-release): Do not fail if no release is found.
-rw-r--r-- | lisp/help-fns.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 47bbefbf010..f036a5a4cbe 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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 |