summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLeo Liu <sdl.web@gmail.com>2011-04-10 22:21:26 +0800
committerLeo Liu <sdl.web@gmail.com>2011-04-10 22:21:26 +0800
commit37f1c9309eb0e6b3bc3dda1ffa7f99410c22355d (patch)
treeada74a7bf82617fd077a2be4375f30dac2caf083
parent368f40905f551ebaead782b3bb23140661600ae0 (diff)
downloademacs-37f1c9309eb0e6b3bc3dda1ffa7f99410c22355d.tar.gz
Fix typo in tabulated-list-print-entry
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/emacs-lisp/tabulated-list.el2
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))