From: Luc Teirlinck <teirllm@auburn.edu>
Date: Sun, 27 Nov 2005 23:55:30 +0000 (+0000)
Subject: (Buffer-menu-revert-function): Make the selected window's buffer the
X-Git-Tag: emacs-pretest-22.0.90~5634
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63de21602df3ac75ba3f2399e7547db1a68b790f;p=emacs.git

(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 e48aa9e34b4..bb4bab7dcce 100644
--- 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)