From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Nov 1994 05:45:00 +0000 (+0000)
Subject: (vi-switch-mode, vi-ex-cmd): Set help-mode in *Help* buffer.
X-Git-Tag: emacs-19.34~6013
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=519248ac15a0d20cf3356f73e88fbe12a59ebbd5;p=emacs.git

(vi-switch-mode, vi-ex-cmd): Set help-mode in *Help* buffer.
---

diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el
index 0f42f72c7d5..1b0e03b4391 100644
--- a/lisp/emulation/vi.el
+++ b/lisp/emulation/vi.el
@@ -40,7 +40,10 @@
   (let ((mode-cmd (lookup-key vi-tilde-map (char-to-string mode-char))))
     (if (null mode-cmd)
 	(with-output-to-temp-buffer "*Help*"
-	  (princ (substitute-command-keys "Possible major modes to switch to: \\{vi-tilde-map}")))
+	  (princ (substitute-command-keys "Possible major modes to switch to: \\{vi-tilde-map}"))
+	  (save-excursion
+	    (set-buffer standard-output)
+	    (help-mode)))
       (setq prefix-arg arg)		; prefix arg will be passed down
       (command-execute mode-cmd nil)	; may need to save mode-line-format etc
       (set-buffer-modified-p (buffer-modified-p))))) ; just in case
@@ -485,7 +488,10 @@ set sw=n     M-x set-variable vi-shift-width n "
 ;; (let ((cmd (read-string ":")) (lines 1))
 ;;  (cond ((string-match "s"))))
   (with-output-to-temp-buffer "*Help*"
-    (princ (documentation 'vi-ex-cmd))))
+    (princ (documentation 'vi-ex-cmd))
+    (save-excursion
+      (set-buffer standard-output)
+      (help-mode))))
 
 (defun vi-undefined ()
   (interactive)