From: Vincent Belaïche <vincentb1@users.sourceforge.net>
Date: Thu, 28 Jul 2016 17:49:37 +0000 (+0200)
Subject: Fix local printer set to left aligned string formatter.
X-Git-Tag: emacs-25.1-rc2~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a38e94;p=emacs.git

Fix local printer set to left aligned string formatter.

* lisp/ses.el (ses-local-printer-compile): Add missing case
for left-aligned string formatter.
---

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)