diff options
Diffstat (limited to 'lisp/ehelp.el')
| -rw-r--r-- | lisp/ehelp.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index ad39116c680..7da9aed075b 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -31,7 +31,6 @@ ;; buffer. ;; To make this the default, you must do -;; (require 'ehelp) ;; (define-key global-map "\C-h" 'ehelp-command) ;; (define-key global-map [help] 'ehelp-command) ;; (define-key global-map [f1] 'ehelp-command) @@ -219,7 +218,7 @@ BUFFER is put back into its original major mode." 'electric-help-retain)))) (Electric-command-loop 'exit - (function (lambda () + (lambda () (sit-for 0) ;necessary if last command was end-of-buffer or ;beginning-of-buffer - otherwise pos-visible-in-window-p ;will yield a wrong result. @@ -241,7 +240,7 @@ BUFFER is put back into its original major mode." (t (cond (standard "Press SPC to scroll, DEL to scroll back, q to exit, r to retain ") (both) - (t (setq both (substitute-command-keys "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "))))))))) + (t (setq both (substitute-command-keys "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit, \\[electric-help-retain] to retain ")))))))) t)))) |