* bs.el (bs-mode): Set `revert-buffer-function' to `bs-refresh'.

  (bs-refresh): Add IGNORED arg for `revert-buffer' compatibility.  Doc fix.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90938604406..ae3745cf518 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2009-10-12  Juanma Barranquero  <lekktu@gmail.com>
 
+        * bs.el (bs-mode): Set `revert-buffer-function' to `bs-refresh'.
+        (bs-refresh): Add IGNORED arg for `revert-buffer' compatibility.
+        Doc fix.
+
         * menu-bar.el (menu-bar-file-menu): Fix format of `separator-exit' item.
 
 2009-10-11  Juri Linkov  <juri@jurta.org>
diff --git a/lisp/bs.el b/lisp/bs.el
index 54924196bf0..e7febbdb119 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -664,7 +664,8 @@ to show always.
         show-trailing-whitespace nil
         font-lock-global-modes '(not bs-mode)
         font-lock-defaults '(bs-mode-font-lock-keywords t)
-        font-lock-verbose nil)
+        font-lock-verbose nil
+        revert-buffer-function 'bs-refresh)
   (add-hook 'window-size-change-functions 'bs--track-window-changes)
   (add-hook 'kill-buffer-hook 'bs--remove-hooks nil t)
   (add-hook 'change-major-mode-hook 'bs--remove-hooks nil t))
@@ -697,8 +698,9 @@ Refresh whole Buffer Selection Menu."
   (call-interactively 'bs-set-configuration)
   (bs--redisplay t))
 
-(defun bs-refresh ()
-  "Refresh whole Buffer Selection Menu."
+(defun bs-refresh (&rest ignored)
+  "Refresh whole Buffer Selection Menu.
+Arguments are IGNORED (for `revert-buffer')."
   (interactive)
   (bs--redisplay t))