diff options
| author | Vincent Belaïche | 2016-07-28 19:49:37 +0200 |
|---|---|---|
| committer | Vincent Belaïche | 2016-07-28 19:49:37 +0200 |
| commit | 8a38e948b039516e70176ebe20c5349e2ade6ac5 (patch) | |
| tree | ad39c4825561a131bc11f45d6bc7bfdfde61eae4 | |
| parent | 0f0b191a5324115fe9e8c438eceef4043decf209 (diff) | |
| download | emacs-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.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." | |||
| 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) |