[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/shortdoc e5a7f6f: Protect against future functions
From: |
Lars Ingebrigtsen |
Subject: |
scratch/shortdoc e5a7f6f: Protect against future functions |
Date: |
Sun, 27 Sep 2020 15:45:34 -0400 (EDT) |
branch: scratch/shortdoc
commit e5a7f6f89d0d9cfdf2cee637d13cd6f69032827f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Protect against future functions
---
lisp/emacs-lisp/shortdoc.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index b4b4c8a..e2141a2 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -532,11 +532,14 @@ There can be any number of :example/:result elements."
(button-mode)
(mapc
(lambda (data)
- (if (stringp data)
- (insert (propertize
- (concat data "\n\n")
- 'face '(variable-pitch (:height 1.3 :weight bold))))
- (shortdoc--display-function data)))
+ (cond
+ ((stringp data)
+ (insert (propertize
+ (concat data "\n\n")
+ 'face '(variable-pitch (:height 1.3 :weight bold)))))
+ ;; There may be functions not yet defined in the data.
+ ((fboundp (car data))
+ (shortdoc--display-function data))))
(cdr (assq group shortdoc--groups))))
(goto-char (point-min)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/shortdoc e5a7f6f: Protect against future functions,
Lars Ingebrigtsen <=