From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 31 Jul 1996 16:35:11 +0000 (+0000)
Subject: (gdb): Bind comint-file-name-regexp.
X-Git-Tag: emacs-19.34~57
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80e2afdd25f64cf4bd9026afd0cb93a9417fb290;p=emacs.git

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

diff --git a/lisp/gud.el b/lisp/gud.el
index 281ceb50573..48664a05608 100644
--- 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)