Mercurial > emacs
changeset 28599:a348ff133401
(gud-jdb-build-source-files-list): Change file-exists-p
to file-directory-p.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 15 Apr 2000 11:32:12 +0000 |
| parents | a4353b351702 |
| children | f3497be4e865 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Fri Apr 14 19:45:47 2000 +0000 +++ b/lisp/gud.el Sat Apr 15 11:32:12 2000 +0000 @@ -1562,7 +1562,7 @@ ;; 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.