# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 955718868 0
# Node ID 784c31479eb28add0954df36e7662f131ed83bf5
# Parent  f10b492946d2f2aef95bb4f0942539389261973d
(gud-jdb-build-source-files-list): Check that directory
exists before calling directory-files.

diff -r f10b492946d2 -r 784c31479eb2 lisp/gud.el
--- a/lisp/gud.el	Fri Apr 14 13:03:20 2000 +0000
+++ b/lisp/gud.el	Fri Apr 14 13:27:48 2000 +0000
@@ -1561,7 +1561,9 @@
 ;; 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 ()