(speedbar-default-directory-list): Made robust against deleted directories.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34b4c7fc48aaf5370cc0c03a09bd2c157398cd40..bb6131aeddae59363add3ad014338b7060752479 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-29  Eric M. Ludlam  <eric@siege-engine.com>
+
+       * speedbar.el (speedbar-default-directory-list): Made robust
+       against deleted directories.
+
 2002-03-28  Richard M. Stallman  <rms@gnu.org>
 
        * dired.el (dired-toggle-marks): Renamed from dired-do-toggle.

diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 5a01717a19b4efe0d71932fe5a526a0ad4a61998..6f63ba2469b33ebdc31e09b4b9d83b84618c71e8 100644 (file)
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -2389,8 +2389,8 @@ cell of the form ( 'DIRLIST .  'FILELIST )"
                (if (looking-at "[0-9]+:[ ]*<")
                    (progn
                      (goto-char (match-end 0))
-                 (speedbar-do-function-pointer)))
-               (setq sf (cdr sf)))))
+                     (speedbar-do-function-pointer)))))
+         (setq sf (cdr sf)))
        )))
 
 (defun speedbar-sort-tag-hierarchy (lst)