diff options
| author | Gerd Moellmann | 2000-08-06 12:09:31 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-08-06 12:09:31 +0000 |
| commit | 4675e266da757dd73b39a87e11c27465dc952970 (patch) | |
| tree | 45977d2af1039c5e09eebd48ed10f56ba902c1ac | |
| parent | 28146d2b8e7e9b28565d24a4a88d1f6dc6bb12c4 (diff) | |
| download | emacs-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.el | 3 |
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)) |