diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-26 15:25:34 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-26 15:25:34 +0000 |
| commit | e64dbd8bb13c9a5a79a435987962f9c973b465ee (patch) | |
| tree | 03404d920924b756b46576790dabe9495dce26a9 /lisp/bs.el | |
| parent | d5aacb4655c06850d35697ccdf2ec71d7d7ae632 (diff) | |
| download | emacs-e64dbd8bb13c9a5a79a435987962f9c973b465ee.tar.gz | |
(bs-buffer-list): Use buffer-local-value.
(bs--set-toggle-to-show): Use with-current-buffer.
Diffstat (limited to 'lisp/bs.el')
| -rw-r--r-- | lisp/bs.el | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lisp/bs.el b/lisp/bs.el index 9fdc8922cc2..29258119974 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -1,6 +1,6 @@ ;;; bs.el --- menu for selecting and displaying buffers -;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2004 Free Software Foundation, Inc. ;; Author: Olaf Sylvester <Olaf.Sylvester@netsurf.de> ;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de> ;; Keywords: convenience @@ -546,9 +546,7 @@ a special function. SORT-DESCRIPTION is an element of `bs-sort-functions'." (extern-must-show-from-fun (and bs-must-show-function (funcall bs-must-show-function (car list)))) - (show-flag (save-excursion - (set-buffer (car list)) - bs-buffer-show-mark))) + (show-flag (buffer-local-value 'bs-buffer-show-mark (car list)))) (if (or (eq show-flag 'always) (and (or bs--show-all (not (eq show-flag 'never))) (not int-show-never) @@ -865,9 +863,7 @@ always. Otherwise it is marked to show never." "Set value `bs-buffer-show-mark' of buffer BUFFER to WHAT. Redisplay current line and display a message describing the status of buffer on current line." - (save-excursion - (set-buffer buffer) - (setq bs-buffer-show-mark what)) + (with-current-buffer buffer (setq bs-buffer-show-mark what)) (bs--update-current-line) (bs--set-window-height) (bs--show-config-message what)) |