[Emacs-diffs] master 33ea72e: * help-fns.el (help-fns--first-release): Do not fail if no release is found.

[Juanma Barranquero]

branch: master
commit 33ea72eb3c27f5ee5d76980d70ab335d7fa33db6
Author: Juanma Barranquero <address@hidden>
Commit: Juanma Barranquero <address@hidden>

    * help-fns.el (help-fns--first-release): Do not fail if no release is found.
---
 lisp/help-fns.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 47bbefb..f036a5a 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