Don't loop so much in gud-query-cmdline on remote systems

* lisp/progmodes/gud.el (gud-query-cmdline): Avoid looping over
large numbers of files on remote systems (bug#21528).

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index b42279415bc6a3e096fb544e5558135896800bbe..7092ca2041fdc431cadafa648f40730faa28a4c7 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -759,13 +759,18 @@ The option \"--fullname\" must be included in this value."
         (concat (or cmd-name (symbol-name minor-mode))
                 " "
                 (or init
-                    (let ((file nil))
-                      (dolist (f (directory-files default-directory) file)
-                        (if (and (file-executable-p f)
-                                 (not (file-directory-p f))
-                                 (or (not file)
-                                     (file-newer-than-file-p f file)))
-                            (setq file f)))))))
+                    (let ((file nil)
+                           (files (directory-files default-directory)))
+                       ;; On remote systems, this may be slow, so avoid it.
+                       (when (or (not (file-remote-p default-directory))
+                                 (length< files 50))
+                        (dolist (f files)
+                          (if (and (file-executable-p f)
+                                   (not (file-directory-p f))
+                                   (or (not file)
+                                       (file-newer-than-file-p f file)))
+                              (setq file f)))
+                            file)))))
      gud-minibuffer-local-map nil
      hist-sym)))