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

(Buffer-menu-mode): Use it, for revert-buffer-function.
(Buffer-menu-mode-map): Bind revert-buffer.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index a2f67bf59f359db688a49fff908a66a45d31ec85..db8060e9e268d40bbb6b990adb6720f14948f165 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -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))
 \f
 (defun Buffer-menu-buffer (error-if-non-existent-p)
   "Return buffer described by this line of buffer menu."