[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 33ea72e: * help-fns.el (help-fns--first-release): D
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] master 33ea72e: * help-fns.el (help-fns--first-release): Do not fail if no release is found. |
Date: |
Sun, 2 Jun 2019 20:17:37 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 33ea72e: * help-fns.el (help-fns--first-release): Do not fail if no release is found.,
Juanma Barranquero <=