diff options
| author | Leo Liu <sdl.web@gmail.com> | 2011-04-10 22:21:26 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2011-04-10 22:21:26 +0800 |
| commit | 37f1c9309eb0e6b3bc3dda1ffa7f99410c22355d (patch) | |
| tree | ada74a7bf82617fd077a2be4375f30dac2caf083 /lisp/emacs-lisp | |
| parent | 368f40905f551ebaead782b3bb23140661600ae0 (diff) | |
| download | emacs-37f1c9309eb0e6b3bc3dda1ffa7f99410c22355d.tar.gz emacs-37f1c9309eb0e6b3bc3dda1ffa7f99410c22355d.tar.bz2 emacs-37f1c9309eb0e6b3bc3dda1ffa7f99410c22355d.zip | |
Fix typo in tabulated-list-print-entry
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 2 |
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)) |