Mercurial > emacs
changeset 15805:6081df437242
(gdb): Bind comint-file-name-regexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 31 Jul 1996 16:35:11 +0000 |
| parents | dd08f1c1f488 |
| children | a3f1489198ea |
| files | lisp/gud.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Tue Jul 30 21:55:13 1996 +0000 +++ b/lisp/gud.el Wed Jul 31 16:35:11 1996 +0000 @@ -268,12 +268,13 @@ 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)