mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(list-buffers-noselect): Don't let space after buf name

Browse Source 
inherit the text props from it.
This commit is contained in:
Richard M. Stallman 1995-06-15 20:07:56 +00:00
parent 27fc16debc
commit bd7602f2ae
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/buff-menu.el
View File

@ -507,11 +507,12 @@ The R column contains a % for buffers that are read-only."
;; This way we avoid problems with unusual buffer names. ;; This way we avoid problems with unusual buffer names.
(setq this-buffer-line-start (setq this-buffer-line-start
(+ this-buffer-line-start Buffer-menu-buffer-column)) (+ this-buffer-line-start Buffer-menu-buffer-column))
(put-text-property this-buffer-line-start (point) (let ((name-end (point)))
'buffer-name name) (indent-to 17 2)
(put-text-property this-buffer-line-start (point) (put-text-property this-buffer-line-start name-end
'mouse-face 'highlight) 'buffer-name name)
(indent-to 17 2) (put-text-property this-buffer-line-start name-end
'mouse-face 'highlight))
(let (size (let (size
mode mode
(excess (- (current-column) 17))) (excess (- (current-column) 17)))