Fix typo in tabulated-list-print-entry

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 402b078be7b4c6bcf1fe53551601f8fb711fb0fd..51f8066077db602726ca99bc2d71ec144192d094 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-10  Leo Liu  <sdl.web@gmail.com>
+
+       * emacs-lisp/tabulated-list.el (tabulated-list-print-entry): Fix
+       typo.
+
 2011-04-09  Chong Yidong  <cyd@stupidchicken.com>
 
        * image-mode.el (image-toggle-display-image): Signal an error if

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 03ee59dd89c1c32bc0ec97f63373b1945b835870..6409c2206bc8490cb89f8632ce707003eb985437 100644 (file)
--- 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))