From fa72d07524d48892dfd924224dbdc03eed6fcc41 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 12 Oct 2009 04:57:46 +0000 Subject: [PATCH] * bs.el (bs-mode): Set `revert-buffer-function' to `bs-refresh'. (bs-refresh): Add IGNORED arg for `revert-buffer' compatibility. Doc fix. --- lisp/ChangeLog | 4 ++++ lisp/bs.el | 8 +++++--- 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 + * 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 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)) -- 2.39.5