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 | 519248ac15a0d20cf3356f73e88fbe12a59ebbd5 (patch) | |
| tree | 8b42c8c0abd7f613d3fc87a59ec7d6659331f81e /lisp/emulation | |
| parent | d10d0394a04280b86f37f61a76da662feaf0f9dd (diff) | |
| download | emacs-519248ac15a0d20cf3356f73e88fbe12a59ebbd5.tar.gz | |
(vi-switch-mode, vi-ex-cmd): Set help-mode in *Help* buffer.
Diffstat (limited to 'lisp/emulation')
| -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) |