Mercurial > emacs
changeset 105570:90daaeee02f3
* bs.el (bs-mode): Set `revert-buffer-function' to `bs-refresh'.
(bs-refresh): Add IGNORED arg for `revert-buffer' compatibility. Doc fix.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 12 Oct 2009 04:57:46 +0000 |
| parents | 5dc7f749a684 |
| children | 9325921bfcde |
| files | lisp/ChangeLog lisp/bs.el |
| diffstat | 2 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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>
--- 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))