procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(list-buffers-noselect): Call format-mode-line with the buffer as argument.

Browse source
This commit is contained in:
Richard M. Stallman 2004-09-09 01:34:59 +00:00
parent 5670531ed8
commit e8e8c0c7b7
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/buff-menu.el
View file

@ -638,14 +638,11 @@ For more information, see the function `buffer-menu'."
(mapcar
(lambda (buffer)
(with-current-buffer buffer
(save-window-excursion
(setq name (buffer-name)
mode (progn
(set-window-buffer (selected-window) buffer)
(concat (format-mode-line mode-name)
(if mode-line-process
(format-mode-line mode-line-process))))
file (buffer-file-name)))
(setq name (buffer-name)
mode (concat (format-mode-line mode-name nil nil buffer)
(if mode-line-process
(format-mode-line mode-line-process nil nil buffer)))
file (buffer-file-name))
(cond
;; Don't mention internal buffers.
((and (string= (substring name 0 1) " ") (null file)))