(gdb): Bind comint-file-name-regexp.

diff --git a/lisp/gud.el b/lisp/gud.el
index 281ceb50573a0f0b7796d119d762ab5d02c4c238..48664a05608bd1037f62bcbe723c8f383651a082 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -268,12 +268,13 @@ and create such a submap in that new map."
 The directory containing FILE becomes the initial working directory
 and source-file directory for your debugger."
   (interactive
-   (list (read-from-minibuffer "Run gdb (like this): "
-                              (if (consp gud-gdb-history)
-                                  (car gud-gdb-history)
-                                "gdb ")
-                              gdb-minibuffer-local-map nil
-                              '(gud-gdb-history . 1))))
+   (list (let ((comint-file-name-regexp "~/A-Za-z0-9+@:_.$#%,={}-"))
+          (read-from-minibuffer "Run gdb (like this): "
+                                (if (consp gud-gdb-history)
+                                    (car gud-gdb-history)
+                                  "gdb ")
+                                gdb-minibuffer-local-map nil
+                                '(gud-gdb-history . 1)))))
 
   (gud-common-init command-line 'gud-gdb-massage-args
                   'gud-gdb-marker-filter 'gud-gdb-find-file)