Mercurial > emacs
diff lisp/emulation/vi.el @ 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 | 507f64624555 |
children | 9ca8b94a9f07 |
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)