From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 3 Jun 2019 00:13:57 +0000 (+0200)
Subject: * help-fns.el (help-fns--first-release): Do not fail if no release is found.
X-Git-Tag: emacs-27.0.90~2716
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33ea72eb3c27f5ee5d76980d70ab335d7fa33db6;p=emacs.git

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

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