summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorGemini Lasswell <gazally@runbox.com>2017-10-05 16:49:34 +0300
committerEli Zaretskii <eliz@gnu.org>2017-10-05 16:49:34 +0300
commit0c8f4e5ea122df9526037286e95844c64f3d964d (patch)
tree111531cb5db4b26989ea9d8d5b9e0c254994122e /lisp
parentc625fb645afc75fb2b2ece771feb9472937c192d (diff)
downloademacs-0c8f4e5ea122df9526037286e95844c64f3d964d.tar.gz
* lisp/ses.el (ses-print-cell): Fix alignment of text cells. (Bug#27653)
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ses.el3
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."
((< len width)
;; Fill field to length with spaces.
(setq len (make-string (- width len) ?\s)
- text (if (or (stringp value)
- (eq ses-call-printer-return t))
+ text (if (eq ses-call-printer-return t)
(concat text len)
(concat len text))))
((> len width)