aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2000-08-06 12:09:31 +0000
committerGerd Moellmann2000-08-06 12:09:31 +0000
commit4675e266da757dd73b39a87e11c27465dc952970 (patch)
tree45977d2af1039c5e09eebd48ed10f56ba902c1ac
parent28146d2b8e7e9b28565d24a4a88d1f6dc6bb12c4 (diff)
downloademacs-4675e266da757dd73b39a87e11c27465dc952970.tar.gz
emacs-4675e266da757dd73b39a87e11c27465dc952970.zip
(describe-mode): Test mini-mode symbol for being
bound before testing its value for being nil.
-rw-r--r--lisp/help.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el
index c3dfc518aaf..2950ffd5929 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -357,7 +357,8 @@ For minor modes, see following pages.\n\n"))
357 ;; Document a minor mode if it is listed in minor-mode-alist, 357 ;; Document a minor mode if it is listed in minor-mode-alist,
358 ;; bound locally in this buffer, non-nil, and has a function 358 ;; bound locally in this buffer, non-nil, and has a function
359 ;; definition. 359 ;; definition.
360 (if (and (symbol-value minor-mode) 360 (if (and (boundp minor-mode)
361 (symbol-value minor-mode)
361 (fboundp minor-mode)) 362 (fboundp minor-mode))
362 (let ((pretty-minor-mode minor-mode)) 363 (let ((pretty-minor-mode minor-mode))
363 (if (string-match "-mode$" (symbol-name minor-mode)) 364 (if (string-match "-mode$" (symbol-name minor-mode))