(set-variable): Set help-mode in *Help* buffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index 2f0fbc61b4a80d3e7bb7af798349f9be0bb259e8..197e4e3df44379a028934e92ae5da5d62f315b99 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2511,6 +2511,9 @@ it were the arg to `interactive' (which see) to interactively read the value."
                    (let ((print-length 20))
                      (princ "\n\nCurrent value: ")
                      (prin1 (symbol-value var))))
+               (save-excursion
+                 (set-buffer standard-output)
+                 (help-mode))
                nil)))))
      (list var
           (let ((prop (get var 'variable-interactive)))