diff options
| author | Richard Stallman <rms@gnu.org> | 2020-02-06 18:30:47 -0500 |
|---|---|---|
| committer | Richard Stallman <rms@gnu.org> | 2020-02-06 18:30:47 -0500 |
| commit | c4be80112556e06bd7e92138e44051cc8c62e709 (patch) | |
| tree | 2392fb385569e10ad9d4d0ab2a48a1771131bf4e /lisp/emacs-lisp/tabulated-list.el | |
| parent | 53f0de5d7719b43f184ce1a910f14882aedc50bc (diff) | |
| parent | 15814d0ccd95848a2a0513d93ab718a49b289598 (diff) | |
| download | emacs-c4be80112556e06bd7e92138e44051cc8c62e709.tar.gz emacs-c4be80112556e06bd7e92138e44051cc8c62e709.tar.bz2 emacs-c4be80112556e06bd7e92138e44051cc8c62e709.zip | |
Merge
Diffstat (limited to 'lisp/emacs-lisp/tabulated-list.el')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 501cc3a29e0..b13f609f882 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -547,10 +547,10 @@ Return the column number after insertion." ;; Don't truncate to `width' if the next column is align-right ;; and has some space left, truncate to `available-space' instead. (when (and not-last-col - (> label-width available-space) - (setq label (truncate-string-to-width - label available-space nil nil t t) - label-width available-space))) + (> label-width available-space)) + (setq label (truncate-string-to-width + label available-space nil nil t t) + label-width available-space)) (setq label (bidi-string-mark-left-to-right label)) (when (and right-align (> width label-width)) (let ((shift (- width label-width))) |