diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-07 20:11:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-07 20:11:26 +0200 |
| commit | 67830e756911f0c262bb3a447e58b9ff6739a60f (patch) | |
| tree | 2e2bf93c156831d8683d37d7c4d641631b5af1fb /lisp/emacs-lisp/tabulated-list.el | |
| parent | 7b3932f2440df61acd20743f230b05ffc4f8d2d8 (diff) | |
| download | emacs-67830e756911f0c262bb3a447e58b9ff6739a60f.tar.gz emacs-67830e756911f0c262bb3a447e58b9ff6739a60f.tar.bz2 emacs-67830e756911f0c262bb3a447e58b9ff6739a60f.zip | |
Use text properties instead of truncating strings
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag): Use
this to allow using commands like `C-s' to search for even
truncated bits.
* lisp/international/mule-util.el (truncate-string-to-width):
Allow using text properties to truncate strings instead of
actually truncating strings (bug#17782).
Diffstat (limited to 'lisp/emacs-lisp/tabulated-list.el')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index ade60285883..66a859f56ce 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -544,7 +544,7 @@ Return the column number after insertion." (when (and not-last-col (> label-width available-space) (setq label (truncate-string-to-width - label available-space nil nil t) + 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)) |