# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1120444023 0
# Node ID 463e088b853125af9ea62aabf9918da0ebc03d82
# Parent  b0446d1a8bddc5922a011b56577ab69f54ac280c
(ses): Finish `defgroup' description with period.
(ses-column-widths, ses-print-cell, ses-adjust-print-width, ses-center):
"?\ " -> "?\s".

diff -r b0446d1a8bdd -r 463e088b8531 lisp/ses.el
--- a/lisp/ses.el	Mon Jul 04 02:23:37 2005 +0000
+++ b/lisp/ses.el	Mon Jul 04 02:27:03 2005 +0000
@@ -49,7 +49,7 @@
 ;;----------------------------------------------------------------------------
 
 (defgroup ses nil
-  "Simple Emacs Spreadsheet"
+  "Simple Emacs Spreadsheet."
   :group  'applications
   :prefix "ses-"
   :version "21.1")
@@ -376,7 +376,7 @@
   ;;print area (excluding the terminating newline)
   (setq ses--col-widths widths
 	ses--linewidth  (apply '+ -1 (mapcar '1+ widths))
-	ses--blank-line (concat (make-string ses--linewidth ? ) "\n"))
+	ses--blank-line (concat (make-string ses--linewidth ?\s) "\n"))
   t)
 
 (defmacro ses-column-printers (printers)
@@ -798,7 +798,7 @@
 	(cond
 	 ((< len width)
 	  ;;Fill field to length with spaces
-	  (setq len  (make-string (- width len) ? )
+	  (setq len  (make-string (- width len) ?\s)
 		text (if (eq ses-call-printer-return t)
 			 (concat text len)
 		       (concat len text))))
@@ -816,7 +816,7 @@
 		    maxcol   (1+ maxcol)))
 	    (if (<= len maxwidth)
 		;;Fill to complete width of all the fields spanned
-		(setq text (concat text (make-string (- maxwidth len) ? )))
+		(setq text (concat text (make-string (- maxwidth len) ?\s)))
 	      ;;Not enough room to end of line or next non-nil field.  Truncate
 	      ;;if string or decimal; otherwise fill with error indicator
 	      (setq sig `(error "Too wide" ,text))
@@ -906,12 +906,12 @@
 COL=NUMCOLS.  Deletes characters if CHANGE < 0.  Caller should bind
 inhibit-quit to t."
   (let ((inhibit-read-only t)
-	(blank  (if (> change 0) (make-string change ? )))
+	(blank  (if (> change 0) (make-string change ?\s)))
 	(at-end (= col ses--numcols)))
     (ses-set-with-undo 'ses--linewidth (+ ses--linewidth change))
     ;;ses-set-with-undo always returns t for strings.
     (1value (ses-set-with-undo 'ses--blank-line
-			       (concat (make-string ses--linewidth ? ) "\n")))
+			       (concat (make-string ses--linewidth ?\s) "\n")))
     (dotimes (row ses--numrows)
       (ses-goto-print row col)
       (when at-end
@@ -2901,7 +2901,7 @@
   (let ((printer (or (ses-col-printer col) ses--default-printer))
 	(width   (ses-col-width col))
 	half)
-    (or fill (setq fill ? ))
+    (or fill (setq fill ?\s))
     (or span (setq span 0))
     (setq value (ses-call-printer printer value))
     (dotimes (x span)