* 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 47bbefbf010bc959d067e3202335f471aa704230..f036a5a4cbe96d4264c57999f36ef91309637cf9 100644 (file)
--- 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