Mercurial > emacs
changeset 8161:6b104526819d
(Buffer-menu-revert-function): New function.
(Buffer-menu-mode): Use it, for revert-buffer-function.
(Buffer-menu-mode-map): Bind revert-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Jul 1994 23:05:34 +0000 |
| parents | 1013d56a1133 |
| children | a24fad61dbac |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/buff-menu.el Wed Jul 06 23:03:47 1994 +0000 +++ b/lisp/buff-menu.el Wed Jul 06 23:05:34 1994 +0000 @@ -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 @@ (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."