From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 29 Mar 2002 12:46:02 +0000 (+0000)
Subject: (speedbar-default-directory-list): Made robust against deleted directories.
X-Git-Tag: ttn-vms-21-2-B4~15918
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b52944ef5d348053cb148de14e8211839347dbf;p=emacs.git

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

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)