# HG changeset patch
# User Eric M. Ludlam <zappo@gnu.org>
# Date 903921369 0
# Node ID 46deaf6e62a9a2f21e4186ea748032bd858ae385
# Parent  e1613f1c52f8ef285c3788bfd0992c1bcb497518
(speedbar-stealthy-updates): Do all updates w/ the the buffer writable.

diff -r e1613f1c52f8 -r 46deaf6e62a9 lisp/speedbar.el
--- a/lisp/speedbar.el	Mon Aug 24 00:55:45 1998 +0000
+++ b/lisp/speedbar.el	Mon Aug 24 01:16:09 1998 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Version: 0.7.2a
 ;; Keywords: file, tags, tools
-;; X-RCS: $Id: speedbar.el,v 1.11 1998/08/24 00:37:22 zappo Exp zappo $
+;; X-RCS: $Id: speedbar.el,v 1.12 1998/08/24 00:55:45 zappo Exp zappo $
 
 ;; This file is part of GNU Emacs.
 
@@ -2615,9 +2615,10 @@
       (let ((l (speedbar-initial-stealthy-functions))
 	    (speedbar-stealthy-update-recurse t))
 	(unwind-protect
-	    (while (and l (funcall (car l)))
-	      ;(sit-for 0)
-	      (setq l (cdr l)))
+	    (speedbar-with-writable
+	     (while (and l (funcall (car l)))
+	       ;;(sit-for 0)
+	       (setq l (cdr l))))
 	  ;;(message "Exit with %S" (car l))
 	  ))))