Fix local printer set to left aligned string formatter.
* lisp/ses.el (ses-local-printer-compile): Add missing case for left-aligned string formatter.
This commit is contained in:
parent
0f0b191a53
commit
8a38e948b0
1 changed files with 4 additions and 0 deletions
|
@ -562,6 +562,10 @@ definition."
|
||||||
((functionp printer) printer)
|
((functionp printer) printer)
|
||||||
((stringp printer)
|
((stringp printer)
|
||||||
`(lambda (x) (format ,printer x)))
|
`(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))))
|
(t (error "Invalid printer %S" printer))))
|
||||||
|
|
||||||
(defun ses--local-printer (name def)
|
(defun ses--local-printer (name def)
|
||||||
|
|
Loading…
Add table
Reference in a new issue