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

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34b4c7fc48a..bb6131aedda 100644
--- 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 5a01717a19b..6f63ba2469b 100644
--- 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)