From 67830e756911f0c262bb3a447e58b9ff6739a60f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 7 Oct 2019 20:11:26 +0200 Subject: 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). --- lisp/emacs-lisp/tabulated-list.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') 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)) -- cgit v1.2.3