diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
| commit | 71296446d3cec5bb2a27bc5ad6da574df38d0ec8 (patch) | |
| tree | 0204c3c252547a44e2404959409034406f7680cd /lisp/ehelp.el | |
| parent | 693ff6134cb2ec65c7d188696f012662edadfbf0 (diff) | |
| download | emacs-71296446d3cec5bb2a27bc5ad6da574df38d0ec8.tar.gz | |
Trailing whitespace deleted.
Diffstat (limited to 'lisp/ehelp.el')
| -rw-r--r-- | lisp/ehelp.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/ehelp.el b/lisp/ehelp.el index a2ea97688a5..f5996068842 100644 --- a/lisp/ehelp.el +++ b/lisp/ehelp.el @@ -181,7 +181,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." (condition-case () (funcall (or default-major-mode 'fundamental-mode)) (error nil)) - + (set-window-configuration config) (when bury ;;>> Perhaps this shouldn't be done, @@ -211,8 +211,8 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit." (Electric-command-loop 'exit (function (lambda () - (sit-for 0) ;necessary if last command was end-of-buffer or - ;beginning-of-buffer - otherwise pos-visible-in-window-p + (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. (let ((min (pos-visible-in-window-p (point-min))) (max (pos-visible-in-window-p (point-max)))) @@ -343,7 +343,7 @@ will select it.)" -;; This is to be bound to M-x in ehelp mode. Retains ehelp buffer and then +;; This is to be bound to M-x in ehelp mode. Retains ehelp buffer and then ;; continues with execute-extended-command. (defun electric-help-execute-extended (prefixarg) (interactive "p") @@ -407,7 +407,7 @@ will select it.)" (defvar ehelp-map ()) (if ehelp-map nil - (let ((map (copy-keymap help-map))) + (let ((map (copy-keymap help-map))) (substitute-key-definition 'apropos 'electric-apropos map) (substitute-key-definition 'command-apropos 'electric-command-apropos map) (substitute-key-definition 'describe-key 'electric-describe-key map) @@ -421,6 +421,6 @@ will select it.)" (setq ehelp-map map) (fset 'ehelp-command map))) -(provide 'ehelp) +(provide 'ehelp) ;;; ehelp.el ends here |