Commit 7192540b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(describe-mode): Fix previous change.

parent ad023904
......@@ -173,9 +173,8 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
For this to work correctly for a minor mode, the mode's indicator variable
\(listed in `minor-mode-alist') must also be a function whose documentation
describes the minor mode."
(interactive "p")
(interactive)
(with-output-to-temp-buffer "*Help*"
(if minor
(let ((minor-modes minor-mode-alist)
(locals (buffer-local-variables)))
(while minor-modes
......@@ -200,7 +199,7 @@ describes the minor mode."
pretty-minor-mode indicator))
(princ (documentation minor-mode))
(princ "\n\n"))))
(setq minor-modes (cdr minor-modes)))))
(setq minor-modes (cdr minor-modes))))
(princ mode-name)
(princ " mode:\n")
(princ (documentation major-mode))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment