[Emacs-diffs] /srv/bzr/emacs/trunk r104758: (ses-destroy-cell-variable-range): Fix heading comment convention.

[Vincent Belaïche]

------------------------------------------------------------
revno: 104758
committer: Vincent Belaïche  <address@hidden>
branch nick: trunk
timestamp: Mon 2011-06-27 10:14:10 +0200
message:
  (ses-destroy-cell-variable-range): Fix heading comment convention.
  (ses-call-printer): Does not pass an empty string to formatter when the cell 
is empty to keep from barking printer Calc math-format-value.
modified:
  lisp/ChangeLog
  lisp/ses.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-27 08:04:55 +0000
+++ b/lisp/ChangeLog    2011-06-27 08:14:10 +0000
@@ -1,3 +1,10 @@
+2011-06-27  Vincent Belaïche  <address@hidden>
+
+       * ses.el (ses-destroy-cell-variable-range): Fix heading comment
+       convention.
+       (ses-call-printer): Does not pass an empty string to formatter when the
+       cell is empty to keep from barking printer Calc math-format-value.
+
 2011-06-27  Richard Stallman  <address@hidden>
 
        * battery.el (battery-mode-line-limit): New variable.

=== modified file 'lisp/ses.el'
--- a/lisp/ses.el       2011-06-27 06:18:45 +0000
+++ b/lisp/ses.el       2011-06-27 08:14:10 +0000
@@ -670,9 +670,9 @@
        (put sym 'ses-cell (cons xrow xcol))
        (make-local-variable sym)))))
 
-;;We do not delete the ses-cell properties for the cell-variables, in case a
-;;formula that refers to this cell is in the kill-ring and is later pasted
-;;back in.
+;; We do not delete the ses-cell properties for the cell-variables, in
+;; case a formula that refers to this cell is in the kill-ring and is
+;; later pasted back in.
 (defun ses-destroy-cell-variable-range (minrow maxrow mincol maxcol)
   "Destroy buffer-local variables for cells.  This is undoable."
   (let (sym)
@@ -1170,17 +1170,19 @@
 parenthesis to request left-justification, or the error-signal if the
 printer signaled one (and \"%s\" is used as the default printer), else nil."
   (setq ses-call-printer-return nil)
-  (unless value
-    (setq value ""))
   (condition-case signal
       (cond
        ((stringp printer)
-       (format printer value))
+       (if value
+           (format printer value)
+         ""))
        ((stringp (car-safe printer))
        (setq ses-call-printer-return t)
-       (format (car printer) value))
+       (if value
+           (format (car printer) value)
+         ""))
        (t
-       (setq value (funcall printer value))
+       (setq value (funcall printer (or value "")))
        (if (stringp value)
            value
          (or (stringp (car-safe value))