diff options
| author | Gemini Lasswell | 2017-10-05 16:49:34 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-10-05 16:49:34 +0300 |
| commit | 0c8f4e5ea122df9526037286e95844c64f3d964d (patch) | |
| tree | 111531cb5db4b26989ea9d8d5b9e0c254994122e | |
| parent | c625fb645afc75fb2b2ece771feb9472937c192d (diff) | |
| download | emacs-0c8f4e5ea122df9526037286e95844c64f3d964d.tar.gz emacs-0c8f4e5ea122df9526037286e95844c64f3d964d.zip | |
* lisp/ses.el (ses-print-cell): Fix alignment of text cells. (Bug#27653)
| -rw-r--r-- | lisp/ses.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/ses.el b/lisp/ses.el index 9221476e7a1..4c19c70c5da 100644 --- a/lisp/ses.el +++ b/lisp/ses.el | |||
| @@ -1254,8 +1254,7 @@ preceding cell has spilled over." | |||
| 1254 | ((< len width) | 1254 | ((< len width) |
| 1255 | ;; Fill field to length with spaces. | 1255 | ;; Fill field to length with spaces. |
| 1256 | (setq len (make-string (- width len) ?\s) | 1256 | (setq len (make-string (- width len) ?\s) |
| 1257 | text (if (or (stringp value) | 1257 | text (if (eq ses-call-printer-return t) |
| 1258 | (eq ses-call-printer-return t)) | ||
| 1259 | (concat text len) | 1258 | (concat text len) |
| 1260 | (concat len text)))) | 1259 | (concat len text)))) |
| 1261 | ((> len width) | 1260 | ((> len width) |