diff options
| author | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2011-06-27 10:14:10 +0200 |
|---|---|---|
| committer | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2011-06-27 10:14:10 +0200 |
| commit | b64585261b8ff4f676fcbc479fc79993d763c528 (patch) | |
| tree | 8261b4900356f868c27d3f425e550f4a739ddb60 /lisp | |
| parent | 43d5bf84cf4f81bc11045971f34cc2b51fa06b03 (diff) | |
| download | emacs-b64585261b8ff4f676fcbc479fc79993d763c528.tar.gz | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/ses.el | 18 |
2 files changed, 17 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c7fb8fcd069..e65f7334754 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2011-06-27 Vincent Belaïche <vincentb1@users.sourceforge.net> + + * 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 <rms@gnu.org> * battery.el (battery-mode-line-limit): New variable. diff --git a/lisp/ses.el b/lisp/ses.el index 2e23e49810a..8b06f058fcd 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -670,9 +670,9 @@ for this spreadsheet." (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 @@ The variable `ses-call-printer-return' is set to t if the printer used 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)) |