From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 14 Apr 2000 13:27:48 +0000 (+0000)
Subject: (gud-jdb-build-source-files-list): Check that directory
X-Git-Tag: emacs-pretest-21.0.90~4249
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90757bb354514d76a5c9ed42d0432a1f6c38c1ba;p=emacs.git

(gud-jdb-build-source-files-list): Check that directory
exists before calling directory-files.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index 67aa59c7b88..0d629aa7aac 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1561,7 +1561,9 @@ The file names should be absolute, or relative to the current directory.")
 ;; which to search for files with extension EXTN.  Normally EXTN is
 ;; given as the regular expression "\\.java$" .
 (defun gud-jdb-build-source-files-list (path extn)
-  (apply 'nconc (mapcar (lambda (d) (directory-files d t extn nil)) path)))
+  (apply 'nconc (mapcar (lambda (d)
+			  (when (files-exists-p d)
+			    (directory-files d t extn nil)) path))))
 
 ;; Move point past whitespace.
 (defun gud-jdb-skip-whitespace ()