Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(ses-destroy-cell-variable-range): Fix heading comment convention.

Browse source 
(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.
This commit is contained in:
Vincent Belaïche 2011-06-27 10:14:10 +02:00
parent 43d5bf84cf
commit b64585261b
2 changed files with 17 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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.

18
lisp/ses.el
View file

@ -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))