# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1080314734 0
# Node ID 0a5e192bf05d526defbc41ab29558cca9439a72e
# Parent  f9e5bd96c71c5e59635efee8acd0f7cc88e17833
(bs-buffer-list): Use buffer-local-value.
(bs--set-toggle-to-show): Use with-current-buffer.

diff -r f9e5bd96c71c -r 0a5e192bf05d lisp/bs.el
--- a/lisp/bs.el	Fri Mar 26 15:22:03 2004 +0000
+++ b/lisp/bs.el	Fri Mar 26 15:25:34 2004 +0000
@@ -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 @@
 	     (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 @@
   "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))