[Emacs-diffs] emacs/lisp ChangeLog bs.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/10/12 04:57:51

Modified files:
        lisp           : ChangeLog bs.el 

Log message:
        * bs.el (bs-mode): Set `revert-buffer-function' to `bs-refresh'.
          (bs-refresh): Add IGNORED arg for `revert-buffer' compatibility.  Doc 
fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16408&r2=1.16409
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bs.el?cvsroot=emacs&r1=1.51&r2=1.52

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16408
retrieving revision 1.16409
diff -u -b -r1.16408 -r1.16409
--- ChangeLog   12 Oct 2009 00:52:23 -0000      1.16408
+++ ChangeLog   12 Oct 2009 04:57:46 -0000      1.16409
@@ -1,5 +1,9 @@
 2009-10-12  Juanma Barranquero  <address@hidden>
 
+       * 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  <address@hidden>

Index: bs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bs.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- bs.el       25 Sep 2009 04:46:36 -0000      1.51
+++ bs.el       12 Oct 2009 04:57:51 -0000      1.52
@@ -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))