comparison lisp/speedbar.el @ 23085:46deaf6e62a9

(speedbar-stealthy-updates): Do all updates w/ the the buffer writable.

23084:e1613f1c52f8

;;; Copyright (C) 1996, 97, 98 Free Software Foundation

;; Author: Eric M. Ludlam <[e-mail]>
;; 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 $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

interrupted by the user."
  (if (not speedbar-stealthy-update-recurse)
      (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)))
	  ;;(message "Exit with %S" (car l))
	  ))))

(defun speedbar-reset-scanners ()
  "Reset any variables used by functions in the stealthy list as state.

23085:46deaf6e62a9

;;; Copyright (C) 1996, 97, 98 Free Software Foundation

;; Author: Eric M. Ludlam <[e-mail]>
;; Version: 0.7.2a
;; Keywords: file, tags, tools
;; X-RCS: $Id: speedbar.el,v 1.12 1998/08/24 00:55:45 zappo Exp zappo $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

interrupted by the user."
  (if (not speedbar-stealthy-update-recurse)
      (let ((l (speedbar-initial-stealthy-functions))
	    (speedbar-stealthy-update-recurse t))
	(unwind-protect
	    (speedbar-with-writable
	     (while (and l (funcall (car l)))
	       ;;(sit-for 0)
	       (setq l (cdr l))))
	  ;;(message "Exit with %S" (car l))
	  ))))

(defun speedbar-reset-scanners ()
  "Reset any variables used by functions in the stealthy list as state.