diff lisp/ehelp.el @ 49588:37645a051842

Trailing whitespace deleted.

--- a/lisp/ehelp.el	Tue Feb 04 10:58:53 2003 +0000
+++ b/lisp/ehelp.el	Tue Feb 04 11:26:42 2003 +0000
@@ -181,7 +181,7 @@
       (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 @@
       (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 @@
 
 
 
-;; 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 @@
 (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 @@
     (setq ehelp-map map)
     (fset 'ehelp-command map)))
 
-(provide 'ehelp) 
+(provide 'ehelp)
 
 ;;; ehelp.el ends here