From e6bcd1558f3111c2585af8f9625a3c2c5065d9bf Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 9 Nov 1994 05:47:20 +0000 Subject: [PATCH] (set-variable): Set help-mode in *Help* buffer. --- lisp/simple.el | 3 +++ 1 file changed, 3 insertions(+) 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))) -- 2.39.5