Trailing whitepace deleted.

1 files changed, 28 insertions, 28 deletions

diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el
index da144683b0..127db243d3 100644
--- a/lisp/play/solitaire.el
+++ b/lisp/play/solitaire.el
@@ -76,9 +76,9 @@
   (define-key solitaire-mode-map [kp-5] 'solitaire-center-point)
 
   (define-key solitaire-mode-map [S-kp-6] 'solitaire-move-right)
-  (define-key solitaire-mode-map [S-kp-4] 'solitaire-move-left) 
-  (define-key solitaire-mode-map [S-kp-8] 'solitaire-move-up)   
-  (define-key solitaire-mode-map [S-kp-2] 'solitaire-move-down) 
+  (define-key solitaire-mode-map [S-kp-4] 'solitaire-move-left)
+  (define-key solitaire-mode-map [S-kp-8] 'solitaire-move-up)
+  (define-key solitaire-mode-map [S-kp-2] 'solitaire-move-down)
 
   (define-key solitaire-mode-map [kp-enter] 'solitaire-move)
   (define-key solitaire-mode-map [kp-0] 'solitaire-undo)
@@ -154,22 +154,22 @@ I don't know who invented this game, but it seems to be rather old and
 its origin seems to be northern Africa.  Here's how to play:
 Initially, the board will look similar to this:
 
-	Le Solitaire             
-	============             
-	
-		o   o   o        
-	
-		o   o   o        
-	
+	Le Solitaire
+	============
+
+		o   o   o
+
+		o   o   o
+
 	o   o   o   o   o   o   o
-	
+
 	o   o   o   .   o   o   o
-	
+
 	o   o   o   o   o   o   o
-	
-		o   o   o        
-	
-		o   o   o        
+
+		o   o   o
+
+		o   o   o
 
 Let's call the o's stones and the .'s holes.  One stone fits into one
 hole.  As you can see, all holes but one are occupied by stones.  The
@@ -186,18 +186,18 @@ which therefore is taken away.  The above thus `evaluates' to:  .  .  o
 
 That's all.  Here's the board after two moves:
 
-		o   o   o        
-	
-		.   o   o        
-	
+		o   o   o
+
+		.   o   o
+
 	o   o   .   o   o   o   o
-	
+
 	o   .   o   o   o   o   o
-	
+
 	o   o   o   o   o   o   o
-	
-		o   o   o        
-	
+
+		o   o   o
+
 		o   o   o
 
 Pick your favourite shortcuts:
@@ -312,7 +312,7 @@ Pick your favourite shortcuts:
 		(not (eolp))))
     (if (or (= 0 (following-char))
 	    (= ?\  (following-char))
-	    (= ?\n (following-char)))	
+	    (= ?\n (following-char)))
 	(goto-char start))))
 
 (defun solitaire-center-point ()
@@ -354,7 +354,7 @@ which a stone will be taken away) and target."
 	(error class)
       (let ((start (car class))
 	    (skip (car (cdr class)))
-	    (target (car (cdr (cdr class)))))	
+	    (target (car (cdr (cdr class)))))
 	(goto-char start)
 	(delete-char 1)
 	(insert ?.)
@@ -385,7 +385,7 @@ which a stone will be taken away) and target."
 		   (<= (solitaire-current-line) solitaire-end-y)
 		   (setq count (1+ count))))
 	    count)))
-  (solitaire-build-modeline)  
+  (solitaire-build-modeline)
   (if solitaire-auto-eval (solitaire-do-check)))
 
 (defun solitaire-check ()