Mercurial > emacs
changeset 28590:784c31479eb2
(gud-jdb-build-source-files-list): Check that directory
exists before calling directory-files.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 14 Apr 2000 13:27:48 +0000 |
| parents | f10b492946d2 |
| children | ea447767fc37 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()