summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/tabulated-list.el
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2011-04-10 08:49:40 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2011-04-10 08:49:40 -0700
commit4073e537492ac700f926d1ed0f27d6160a142ae4 (patch)
treedfaca3760efeffcb9fc41bbbb7265e85240a533d /lisp/emacs-lisp/tabulated-list.el
parentda0e53381fb37a43706634ada4b3e04ba4e5e366 (diff)
parent37f1c9309eb0e6b3bc3dda1ffa7f99410c22355d (diff)
downloademacs-4073e537492ac700f926d1ed0f27d6160a142ae4.tar.gz
emacs-4073e537492ac700f926d1ed0f27d6160a142ae4.tar.bz2
emacs-4073e537492ac700f926d1ed0f27d6160a142ae4.zip
Merge from mainline.
Diffstat (limited to 'lisp/emacs-lisp/tabulated-list.el')
-rw-r--r--lisp/emacs-lisp/tabulated-list.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 03ee59dd89c..6409c2206bc 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -271,7 +271,7 @@ of column descriptors."
;; Truncate labels if necessary.
(and (> width 6)
(> (length label) width)
- (setq label (concat (substring desc 0 (- width 3))
+ (setq label (concat (substring label 0 (- width 3))
"...")))
(if (stringp desc)
(insert (propertize label 'help-echo help-echo))