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

1 files changed, 3 insertions, 0 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index 2f0fbc61b4a..197e4e3df44 100644
--- 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)))