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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90938604406f0cebcfe8fd26b2c03dee4ee9db6b..ae3745cf5188bd7befba12d6265ddf0e040a19e5 100644 (file)
--- 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 54924196bf0c09ce9c14644c7ac57e900421aa22..e7febbdb11969eaf83998e8f33ece7c878c39404 100644 (file)
--- 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))