X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/368cb23fe249334bf9d230755ae07b6410ac6852..6dc0bafd5915b01a341cc0efbc744abd73163872:/lisp/progmodes/gud.el?ds=sidebyside

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 9bf739463e..ceb57b7156 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -1947,10 +1947,10 @@ the source code display in sync with the debugging session.")
 PATH gives the directories in which to search for files with
 extension EXTN.  Normally EXTN is given as the regular expression
  \"\\.java$\" ."
-  (apply 'nconc (mapcar (lambda (d)
-			  (when (file-directory-p d)
-			    (directory-files d t extn nil)))
-			path)))
+  (mapcan (lambda (d)
+            (when (file-directory-p d)
+              (directory-files d t extn nil)))
+          path))
 
 ;; Move point past whitespace.
 (defun gud-jdb-skip-whitespace ()