[Emacs-diffs] /srv/bzr/emacs/trunk r103879: Fix typo in tabulated-list-print-entry

[Leo Liu]

------------------------------------------------------------
revno: 103879
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Sun 2011-04-10 22:21:26 +0800
message:
  Fix typo in tabulated-list-print-entry
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/tabulated-list.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-09 20:28:01 +0000
+++ b/lisp/ChangeLog    2011-04-10 14:21:26 +0000
@@ -1,3 +1,8 @@
+2011-04-10  Leo Liu  <address@hidden>
+
+       * emacs-lisp/tabulated-list.el (tabulated-list-print-entry): Fix
+       typo.
+
 2011-04-09  Chong Yidong  <address@hidden>
 
        * image-mode.el (image-toggle-display-image): Signal an error if

=== modified file 'lisp/emacs-lisp/tabulated-list.el'
--- a/lisp/emacs-lisp/tabulated-list.el 2011-04-06 21:55:08 +0000
+++ b/lisp/emacs-lisp/tabulated-list.el 2011-04-10 14:21:26 +0000
@@ -271,7 +271,7 @@
        ;; 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))