Mercurial > emacs
changeset 9842:6f9b0830f124
(vi-switch-mode, vi-ex-cmd): Set help-mode in *Help* buffer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 09 Nov 1994 05:45:00 +0000 |
| parents | 34901f215641 |
| children | f96b7683e3c5 |
| files | lisp/emulation/vi.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/vi.el Wed Nov 09 05:44:20 1994 +0000 +++ b/lisp/emulation/vi.el Wed Nov 09 05:45:00 1994 +0000 @@ -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 @@ ;; (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)