changeset 64023:22c5a8628828

(strokes): Finish `defgroup' description with period. (strokes-read-stroke, strokes-read-complex-stroke, strokes-fill-current-buffer-with-whitespace, strokes-xpm-for-stroke, strokes-list-strokes, strokes-xpm-char-bit-p, strokes-xpm-for-compressed-string): "?\ " -> "?\s".

--- a/lisp/strokes.el	Mon Jul 04 02:30:31 2005 +0000
+++ b/lisp/strokes.el	Mon Jul 04 02:33:29 2005 +0000
@@ -208,7 +208,7 @@
 ;;; user variables...
 
 (defgroup strokes nil
-  "Control Emacs through mouse strokes"
+  "Control Emacs through mouse strokes."
   :link '(emacs-commentary-link "strokes")
   :link '(url-link "http://www.mit.edu/people/cadet/strokes-help.html")
   :group 'mouse)
@@ -753,7 +753,7 @@
 			      (progn
 				(goto-char point)
 				(subst-char-in-region point (1+ point)
-						      ?\  strokes-character))
+						      ?\s strokes-character))
 			    ;; otherwise, we can start drawing the next time...
 			    (setq safe-to-draw-p t))
 			  (push (cdr (mouse-pixel-position))
@@ -763,7 +763,7 @@
 	    ;; clean up strokes buffer and then bury it.
 	    (when (equal (buffer-name) strokes-buffer-name)
 	      (subst-char-in-region (point-min) (point-max)
-				    strokes-character ?\ )
+				    strokes-character ?\s)
 	      (goto-char (point-min))
 	      (bury-buffer))))
       ;; Otherwise, don't use strokes buffer and read stroke silently
@@ -813,7 +813,7 @@
 			(when point
 			  (goto-char point)
 			  (subst-char-in-region point (1+ point)
-						?\  strokes-character))
+						?\s strokes-character))
 			(push (cdr (mouse-pixel-position))
 			      pix-locs)))
 		  (setq event (read-event)))
@@ -831,7 +831,7 @@
 	  ;; protected
 	  (when (equal (buffer-name) strokes-buffer-name)
 	    (subst-char-in-region (point-min) (point-max)
-				  strokes-character ?\ )
+				  strokes-character ?\s)
 	    (goto-char (point-min))
 	    (bury-buffer)))))))
 
@@ -1035,7 +1035,7 @@
   "Erase the contents of the current buffer and fill it with whitespace."
   (erase-buffer)
   (loop repeat (frame-height) do
-	(insert-char ?\  (1- (frame-width)))
+	(insert-char ?\s (1- (frame-width)))
 	(newline))
   (goto-char (point-min)))
 
@@ -1169,7 +1169,7 @@
       (insert strokes-xpm-header)
       (loop repeat 33 do
 	    (insert ?\")
-	    (insert-char ?\  33)
+	    (insert-char ?\s 33)
 	    (insert "\",")
 	    (newline)
 	    finally
@@ -1195,7 +1195,7 @@
 		     ;; Otherwise, just plot the point...
 		     (goto-line (+ 17 y))
 		     (forward-char (+ 2 x))
-		     (subst-char-in-region (point) (1+ (point)) ?\  ?\*)))
+		     (subst-char-in-region (point) (1+ (point)) ?\s ?\*)))
 		  ((strokes-lift-p point)
 		   ;; a lift--tell the loop to X out the next point...
 		   (setq lift-flag t))))
@@ -1286,7 +1286,7 @@
 ;;	      (command-name (symbol-name (cdr def))))
 ;;	  (strokes-xpm-for-stroke stroke " *strokes-xpm*")
 ;;	  (newline 2)
-;;	  (insert-char ?\  45)
+;;	  (insert-char ?\s 45)
 ;;	  (beginning-of-line)
 ;;	  (insert command-name)
 ;;	  (beginning-of-line)
@@ -1342,7 +1342,7 @@
 				(prin1-to-string (cdr def)))))
 	    (strokes-xpm-for-stroke stroke " *strokes-xpm*")
 	    (newline 2)
-	    (insert-char ?\  45)
+	    (insert-char ?\s 45)
 	    (beginning-of-line)
 	    (insert command-name)
 	    (beginning-of-line)
@@ -1515,7 +1515,7 @@
 
 (defsubst strokes-xpm-char-bit-p (char)
   "Non-nil if CHAR represents an `on' or `off' bit in the XPM."
-  (or (eq char ?\ )
+  (or (eq char ?\s)
       (eq char ?*)))
 
 ;;(defsubst strokes-xor (a b)  ### Should I make this an inline function? ###
@@ -1716,7 +1716,7 @@
 	(insert-char
 	 (if current-char-is-on-p
 	     ?*
-	   ?\ )
+	   ?\s)
 	 (strokes-xpm-decode-char (char-after)))
 	(delete-char 1)
 	(setq current-char-is-on-p (not current-char-is-on-p)))