diff options
| author | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2016-08-09 23:46:13 +0200 |
|---|---|---|
| committer | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2016-08-09 23:46:13 +0200 |
| commit | 731d225cf3a8f95d3bad0baf60c792afc7d58b78 (patch) | |
| tree | 9d33bc49657e9b4e7aadecc44cc6d76389d212ef /lisp/ses.el | |
| parent | e13c5467fc0c08c6875653df56b8b54185d0c4cc (diff) | |
| download | emacs-731d225cf3a8f95d3bad0baf60c792afc7d58b78.tar.gz | |
Apply changes from commits 3c97b0f758 and 8a38e948b0 to master branch.
Here follows the logs from the two commits which I apply to master.
commit 3c97b0f7589e06aeb1ab0147f0ee32974c32926d
Author: Vincent Belaïche <vincentb1@users.sourceforge.net>
Date: Fri Jul 29 13:44:14 2016 +0200
Fix ses-delete-blanks to delete only blanks + documentation.
* doc/misc/ses.texi (Quick Tutorial): Mention the '!'
'ses-range' modifier as an alternative to 'ses+'.
(Advanced Features): Add a refernce to node 'Nonrelocatable
references' concerning function 'ses-rename-cell'.
(Standard formula functions): Mention the '!' 'ses-range'
modifier as an alternative to 'ses-delete-blanks'.
(More on cell printing): Fix fallback printer
definition. Minor editorial formatting changes.
(Nonrelocatable references): Document the use of
'ses-rename-cell' as a better way to make cell reference
non-relocatable.
(The data area): Document the presence of local printer
definitions in the data area.
* lisp/ses.el (ses-delete-blanks): Do not remove
*error*. Any error in an argument should propagate into the
using formula rather than being silently hidden !
commit 8a38e948b039516e70176ebe20c5349e2ade6ac5
Author: Vincent Belaïche <vincentb1@users.sourceforge.net>
Date: Thu Jul 28 19:49:37 2016 +0200
Fix local printer set to left aligned string formatter.
* lisp/ses.el (ses-local-printer-compile): Add missing case
for left-aligned string formatter.
Diffstat (limited to 'lisp/ses.el')
| -rw-r--r-- | lisp/ses.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index ad3c39e93ea..9abbd6dd2ca 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1,3 +1,4 @@ + ;;; ses.el -- Simple Emacs Spreadsheet -*- lexical-binding:t -*- ;; Copyright (C) 2002-2016 Free Software Foundation, Inc. @@ -565,6 +566,10 @@ definition." ((functionp printer) printer) ((stringp printer) `(lambda (x) (format ,printer x))) + ((stringp (car-safe printer)) + `(lambda (x) + (setq ses-call-printer-return t) + (format ,(car printer) x))) (t (error "Invalid printer %S" printer)))) (defun ses--local-printer (name def) @@ -3798,7 +3803,7 @@ Use `math-format-value' as a printer for Calc objects." "Return ARGS reversed, with the blank elements (nil and *skip*) removed." (let (result) (dolist (cur args) - (unless (memq cur '(nil *skip* *error*)) + (unless (memq cur '(nil *skip*)) (push cur result))) result)) |