Mercurial > emacs
diff lisp/gud.el @ 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 | 784c31479eb2 |
children | d63fb3b5adad |
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.