aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorVincent Belaïche2016-07-28 19:49:37 +0200
committerVincent Belaïche2016-07-28 19:49:37 +0200
commit8a38e948b039516e70176ebe20c5349e2ade6ac5 (patch)
treead39c4825561a131bc11f45d6bc7bfdfde61eae4
parent0f0b191a5324115fe9e8c438eceef4043decf209 (diff)
downloademacs-8a38e948b039516e70176ebe20c5349e2ade6ac5.tar.gz
emacs-8a38e948b039516e70176ebe20c5349e2ade6ac5.zip
Fix local printer set to left aligned string formatter.
* lisp/ses.el (ses-local-printer-compile): Add missing case for left-aligned string formatter.
-rw-r--r--lisp/ses.el4
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."
562 ((functionp printer) printer) 562 ((functionp printer) printer)
563 ((stringp printer) 563 ((stringp printer)
564 `(lambda (x) (format ,printer x))) 564 `(lambda (x) (format ,printer x)))
565 ((stringp (car-safe printer))
566 `(lambda (x)
567 (setq ses-call-printer-return t)
568 (format ,(car printer) x)))
565 (t (error "Invalid printer %S" printer)))) 569 (t (error "Invalid printer %S" printer))))
566 570
567(defun ses--local-printer (name def) 571(defun ses--local-printer (name def)