diff lisp/descr-text.el @ 49588:37645a051842

Trailing whitespace deleted.

--- a/lisp/descr-text.el	Tue Feb 04 10:58:53 2003 +0000
+++ b/lisp/descr-text.el	Tue Feb 04 11:26:42 2003 +0000
@@ -35,12 +35,12 @@
       (delete-window)
     (bury-buffer)))
 
-(defvar describe-text-mode-map 
+(defvar describe-text-mode-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map widget-keymap)
     map)
   "Keymap for `describe-text-mode'.")
-  
+
 (defcustom describe-text-mode-hook nil
   "List of hook functions ran by `describe-text-mode'."
   :type 'hook
@@ -67,7 +67,7 @@
   (widget-create 'link
 		 :notify `(lambda (&rest ignore)
 			    (widget-browse ',widget))
-		 (format "%S" (if (symbolp widget) 
+		 (format "%S" (if (symbolp widget)
 				  widget
 				(car widget))))
   (widget-insert " ")
@@ -197,7 +197,7 @@
       ;; Buttons
       (when (and button (not (widgetp wid-button)))
 	(newline)
-	(widget-insert "Here is a " (format "%S" button-type) 
+	(widget-insert "Here is a " (format "%S" button-type)
 		       " button labeled `" button-label "'.\n\n"))
       ;; Overlays
       (when overlays
@@ -207,7 +207,7 @@
 	  (widget-insert "There are " (format "%d" (length overlays))
 			 " overlays here:\n"))
 	(dolist (overlay overlays)
-	  (widget-insert " From " (format "%d" (overlay-start overlay)) 
+	  (widget-insert " From " (format "%d" (overlay-start overlay))
 			 " to " (format "%d" (overlay-end overlay)) "\n")
 	  (describe-property-list (overlay-properties overlay)))
 	(widget-insert "\n"))
@@ -336,7 +336,7 @@
 		   (t (concat (substring composed 0 (- pos (car composition)))
 			      "' and `"
 			      (substring composed (- (1+ pos) (car composition))))))
-		    
+
 		  "' to form `" composed "'")
 	  (if (nth 3 composition)
 	      (insert ".\n")