(Buffer-menu-revert-function): Make the selected window's buffer the

current buffer around the call to `list-buffers-noselect'.  This is
necessary to mark that buffer with a `.' in the Buffer Menu when
called from Lisp, for instance by Auto Revert Mode.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index e48aa9e34b40e391f4bbaba62bb5bdb14ebdce87..bb4bab7dcce831cf5b807e91815294b7fbc23584 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -210,7 +210,12 @@ Letters do not insert themselves; instead, they are commands.
        (prop (point-min))
        ;; do not make undo records for the reversion.
        (buffer-undo-list t))
-    (list-buffers-noselect Buffer-menu-files-only)
+    ;; We can be called by Auto Revert Mode with the "*Buffer Menu*"
+    ;; temporarily the current buffer.  Make sure that the
+    ;; interactively current buffer is correctly identified with a `.'
+    ;; by `list-buffers-noselect'.
+    (with-current-buffer (window-buffer)
+      (list-buffers-noselect Buffer-menu-files-only))
     (if oline
        (while (setq prop (next-single-property-change prop 'buffer))
          (when (eq (get-text-property prop 'buffer) oline)