Mercurial > emacs
diff lisp/help.el @ 16694:c19089a334b2
(describe-mode): Include minor modes that aren't buffer local.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 16 Dec 1996 02:44:52 +0000 |
parents | 4ff6a0f0f5c7 |
children | 16e25f6a3725 |
line wrap: on
line diff
--- a/lisp/help.el Mon Dec 16 02:44:07 1996 +0000 +++ b/lisp/help.el Mon Dec 16 02:44:52 1996 +0000 @@ -283,17 +283,14 @@ (interactive) (with-output-to-temp-buffer "*Help*" (let ((minor-modes minor-mode-alist) - (first t) - (locals (buffer-local-variables))) + (first t)) (while minor-modes (let* ((minor-mode (car (car minor-modes))) - (indicator (car (cdr (car minor-modes)))) - (local-binding (assq minor-mode locals))) + (indicator (car (cdr (car minor-modes))))) ;; Document a minor mode if it is listed in minor-mode-alist, ;; bound locally in this buffer, non-nil, and has a function ;; definition. - (if (and local-binding - (cdr local-binding) + (if (and (symbol-value minor-mode) (fboundp minor-mode)) (let ((pretty-minor-mode minor-mode)) (if (string-match "-mode$" (symbol-name minor-mode))