Fix typo in tabulated-list-print-entry

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 402b078be7b..51f8066077d 100644
--- 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 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))