Commit 9d29f94c authored by Karl Heuer's avatar Karl Heuer
Browse files

(Info-summary): Set help-mode in *Help* buffer.

parent 6ec1c571
...@@ -1302,6 +1302,7 @@ Give a blank topic name to go to the Index node itself." ...@@ -1302,6 +1302,7 @@ Give a blank topic name to go to the Index node itself."
(switch-to-buffer "*Help*") (switch-to-buffer "*Help*")
(erase-buffer) (erase-buffer)
(insert (documentation 'Info-mode)) (insert (documentation 'Info-mode))
(help-mode)
(goto-char (point-min)) (goto-char (point-min))
(let (ch flag) (let (ch flag)
(while (progn (setq flag (not (pos-visible-in-window-p (point-max)))) (while (progn (setq flag (not (pos-visible-in-window-p (point-max))))
......
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