[Emacs-diffs] Changes to emacs/lisp/ses.el

[Juanma Barranquero]

Index: emacs/lisp/ses.el
diff -c emacs/lisp/ses.el:1.18 emacs/lisp/ses.el:1.19
*** emacs/lisp/ses.el:1.18      Tue Jun 21 13:39:59 2005
--- emacs/lisp/ses.el   Mon Jul  4 02:27:03 2005
***************
*** 49,55 ****
  ;;----------------------------------------------------------------------------
  
  (defgroup ses nil
!   "Simple Emacs Spreadsheet"
    :group  'applications
    :prefix "ses-"
    :version "21.1")
--- 49,55 ----
  ;;----------------------------------------------------------------------------
  
  (defgroup ses nil
!   "Simple Emacs Spreadsheet."
    :group  'applications
    :prefix "ses-"
    :version "21.1")
***************
*** 376,382 ****
    ;;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"))
    t)
  
  (defmacro ses-column-printers (printers)
--- 376,382 ----
    ;;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 ?\s) "\n"))
    t)
  
  (defmacro ses-column-printers (printers)
***************
*** 798,804 ****
        (cond
         ((< len width)
          ;;Fill field to length with spaces
!         (setq len  (make-string (- width len) ? )
                text (if (eq ses-call-printer-return t)
                         (concat text len)
                       (concat len text))))
--- 798,804 ----
        (cond
         ((< len width)
          ;;Fill field to length with spaces
!         (setq len  (make-string (- width len) ?\s)
                text (if (eq ses-call-printer-return t)
                         (concat text len)
                       (concat len text))))
***************
*** 816,822 ****
                    maxcol   (1+ maxcol)))
            (if (<= len maxwidth)
                ;;Fill to complete width of all the fields spanned
!               (setq text (concat text (make-string (- maxwidth len) ? )))
              ;;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))
--- 816,822 ----
                    maxcol   (1+ maxcol)))
            (if (<= len maxwidth)
                ;;Fill to complete width of all the fields spanned
!               (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,917 ****
  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 ? )))
        (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")))
      (dotimes (row ses--numrows)
        (ses-goto-print row col)
        (when at-end
--- 906,917 ----
  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 ?\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 ?\s) "\n")))
      (dotimes (row ses--numrows)
        (ses-goto-print row col)
        (when at-end
***************
*** 2901,2907 ****
    (let ((printer (or (ses-col-printer col) ses--default-printer))
        (width   (ses-col-width col))
        half)
!     (or fill (setq fill ? ))
      (or span (setq span 0))
      (setq value (ses-call-printer printer value))
      (dotimes (x span)
--- 2901,2907 ----
    (let ((printer (or (ses-col-printer col) ses--default-printer))
        (width   (ses-col-width col))
        half)
!     (or fill (setq fill ?\s))
      (or span (setq span 0))
      (setq value (ses-call-printer printer value))
      (dotimes (x span)