From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 15 Apr 2000 11:33:45 +0000 (+0000)
Subject: (gud-jdb-build-source-files-list): Change file-exists-p
X-Git-Tag: emacs-pretest-21.0.90~4241
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ffc50f2aabbe1eb98a45e0a4394dbb8aa7531012;p=emacs.git

(gud-jdb-build-source-files-list): Change file-exists-p
to file-directory-p.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c065665425b..bbb382cbc6b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-15  Gerd Moellmann  <gerd@gnu.org>
+
+	* gud.el (gud-jdb-build-source-files-list): Change file-exists-p
+	to file-directory-p.
+
 2000-04-14  Gerd Moellmann  <gerd@gnu.org>
 
 	* gud.el (gud-jdb-build-source-files-list): Check that directory
diff --git a/lisp/gud.el b/lisp/gud.el
index 0d629aa7aac..719f2f6b0aa 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1562,7 +1562,7 @@ The file names should be absolute, or relative to the current directory.")
 ;; given as the regular expression "\\.java$" .
 (defun gud-jdb-build-source-files-list (path extn)
   (apply 'nconc (mapcar (lambda (d)
-			  (when (files-exists-p d)
+			  (when (files-directory-p d)
 			    (directory-files d t extn nil)) path))))
 
 ;; Move point past whitespace.