diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-09 05:45:00 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-09 05:45:00 +0000 |
| commit | d518d57603c2da142b0d626b92237228c9e051a1 (patch) | |
| tree | 0dcb84dcf1a2784740ea03ae00c29b1b060f31f0 /lisp | |
| parent | 97a86b6d35c647ba7b4f14ead06d8614c38e9280 (diff) | |
| download | emacs-d518d57603c2da142b0d626b92237228c9e051a1.tar.gz | |
(vi-switch-mode, vi-ex-cmd): Set help-mode in *Help* buffer.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/vi.el | 10 |
1 files changed, 8 insertions, 2 deletions
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) |