mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(list-buffers-noselect): Append the buffer's process status to its mode name.

Browse Source
This commit is contained in:
Eli Zaretskii 2004-07-16 13:15:09 +00:00
parent f9253326af
commit b6fdd1efe6
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2004-07-16 Stephan Stahl <stahl@eos.franken.de> (tiny change)
* buff-menu.el (list-buffers-noselect): Append the buffer's
process status to its mode name.
2004-07-16 Kim F. Storm <storm@cua.dk>
* simple.el (inhibit-mark-movement): New defvar.

14
lisp/buff-menu.el
View File

@ -613,7 +613,7 @@ For more information, see the function `buffer-menu'."
" "
(Buffer-menu-make-sort-button "Mode" 4) mode-end
(Buffer-menu-make-sort-button "File" 5) "\n"))
list desired-point name file)
list desired-point name mode file)
(when Buffer-menu-use-header-line
(let ((pos 0))
;; Turn spaces in the header into stretch specs so they work
@ -638,8 +638,14 @@ For more information, see the function `buffer-menu'."
(mapcar
(lambda (buffer)
(with-current-buffer buffer
(setq name (buffer-name)
file (buffer-file-name))
(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)))
(cond
;; Don't mention internal buffers.
((and (string= (substring name 0 1) " ") (null file)))
@ -665,7 +671,7 @@ For more information, see the function `buffer-menu'."
?% ? )
;; Identify modified buffers.
(if (buffer-modified-p) ?* ? ))
name (buffer-size) mode-name file)))))
name (buffer-size) mode file)))))
(buffer-list))))
(dolist (buffer
(if Buffer-menu-sort-column