diff options
author | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2016-07-28 19:49:37 +0200 |
---|---|---|
committer | Vincent Belaïche <vincentb1@users.sourceforge.net> | 2016-07-28 19:49:37 +0200 |
commit | 8a38e948b039516e70176ebe20c5349e2ade6ac5 (patch) | |
tree | ad39c4825561a131bc11f45d6bc7bfdfde61eae4 /lisp | |
parent | 0f0b191a5324115fe9e8c438eceef4043decf209 (diff) | |
download | emacs-8a38e948b039516e70176ebe20c5349e2ade6ac5.tar.gz |
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')
-rw-r--r-- | lisp/ses.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index ab9f0715fd8..0b38af41a8b 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -562,6 +562,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) |