# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1255323466 0
# Node ID 90daaeee02f34d61dfac99e3081d029717048c8c
# Parent  5dc7f749a6845260ef2ee13686972f54fb28c070
* bs.el (bs-mode): Set `revert-buffer-function' to `bs-refresh'.
  (bs-refresh): Add IGNORED arg for `revert-buffer' compatibility.  Doc fix.

diff -r 5dc7f749a684 -r 90daaeee02f3 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Oct 12 00:52:23 2009 +0000
+++ b/lisp/ChangeLog	Mon Oct 12 04:57:46 2009 +0000
@@ -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 -r 5dc7f749a684 -r 90daaeee02f3 lisp/bs.el
--- a/lisp/bs.el	Mon Oct 12 00:52:23 2009 +0000
+++ b/lisp/bs.el	Mon Oct 12 04:57:46 2009 +0000
@@ -664,7 +664,8 @@
 	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 @@
   (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))