mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 08:10:21 -08:00
Code Issues Projects Releases Wiki Activity

New function `string-mark-left-to-right' for handling LRMs.

Browse source 
* lisp/subr.el (string-mark-left-to-right): New function.

* lisp/buff-menu.el (Buffer-menu-buffer+size): Remove LRM argument.
Use string-mark-left-to-right.
(list-buffers-noselect): Caller changed.

* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print-entry): Use
string-mark-left-to-right.
(tabulated-list-print): Recenter after moving point.
This commit is contained in:
Chong Yidong 2011-08-10 15:03:56 -04:00
parent ac8cf6e698
commit 3e26a4a28c
5 changed files with 39 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/tabulated-list.el
View file

@ -258,7 +258,8 @@ to the entry with the same ID element as the current line."
;; If REMEMBER-POS was specified, move to the "old" location.
(if saved-pt
(progn (goto-char saved-pt)
(move-to-column saved-col))
(move-to-column saved-col)
(recenter))
(goto-char (point-min)))))
(defun tabulated-list-print-entry (id cols)
@ -282,6 +283,7 @@ of column descriptors."
(> (length label) width)
(setq label (concat (substring label 0 (- width 3))
"...")))
(setq label (string-mark-left-to-right label))
(if (stringp desc)
(insert (propertize label 'help-echo help-echo))
(apply 'insert-text-button label (cdr desc)))