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

(Buffer-menu-revert-function): New function.

Browse Source 
(Buffer-menu-mode): Use it, for revert-buffer-function.
(Buffer-menu-mode-map): Bind revert-buffer.
This commit is contained in:
Richard M. Stallman 1994-07-06 23:05:34 +00:00
parent 0973d78b8e
commit 710e5da869
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/buff-menu.el
View File

@ -79,6 +79,7 @@
(define-key Buffer-menu-mode-map "m" 'Buffer-menu-mark)
(define-key Buffer-menu-mode-map "t" 'Buffer-menu-visit-tags-table)
(define-key Buffer-menu-mode-map "%" 'Buffer-menu-toggle-read-only)
(define-key Buffer-menu-mode-map "g" 'revert-buffer)
(define-key Buffer-menu-mode-map [mouse-2] 'Buffer-menu-mouse-select)
)
@ -125,9 +126,14 @@ Letters do not insert themselves; instead, they are commands.
(let ((where (Buffer-menu-buffer-name-position)))
(put-text-property (car where) (cdr where) 'mouse-face 'highlight))
(forward-line 1)))
(make-local-variable 'revert-buffer-function)
(setq revert-buffer-function 'Buffer-menu-revert-function)
(setq truncate-lines t)
(setq buffer-read-only t)
(run-hooks 'buffer-menu-mode-hook))
(defun Buffer-menu-revert-function (ignore1 ignore2)
(list-buffers))
(defun Buffer-menu-buffer (error-if-non-existent-p)
"Return buffer described by this line of buffer menu."