diff options
| author | Richard M. Stallman | 1996-07-31 16:35:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-07-31 16:35:11 +0000 |
| commit | 80e2afdd25f64cf4bd9026afd0cb93a9417fb290 (patch) | |
| tree | d935fa66b736dd8fb95a2191e5bc684fdfb1519a | |
| parent | 43d3039dffe682d1f638e94d1adfa5bd243e0386 (diff) | |
| download | emacs-80e2afdd25f64cf4bd9026afd0cb93a9417fb290.tar.gz emacs-80e2afdd25f64cf4bd9026afd0cb93a9417fb290.zip | |
(gdb): Bind comint-file-name-regexp.
| -rw-r--r-- | lisp/gud.el | 13 |
1 files changed, 7 insertions, 6 deletions
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." | |||
| 268 | The directory containing FILE becomes the initial working directory | 268 | The directory containing FILE becomes the initial working directory |
| 269 | and source-file directory for your debugger." | 269 | and source-file directory for your debugger." |
| 270 | (interactive | 270 | (interactive |
| 271 | (list (read-from-minibuffer "Run gdb (like this): " | 271 | (list (let ((comint-file-name-regexp "~/A-Za-z0-9+@:_.$#%,={}-")) |
| 272 | (if (consp gud-gdb-history) | 272 | (read-from-minibuffer "Run gdb (like this): " |
| 273 | (car gud-gdb-history) | 273 | (if (consp gud-gdb-history) |
| 274 | "gdb ") | 274 | (car gud-gdb-history) |
| 275 | gdb-minibuffer-local-map nil | 275 | "gdb ") |
| 276 | '(gud-gdb-history . 1)))) | 276 | gdb-minibuffer-local-map nil |
| 277 | '(gud-gdb-history . 1))))) | ||
| 277 | 278 | ||
| 278 | (gud-common-init command-line 'gud-gdb-massage-args | 279 | (gud-common-init command-line 'gud-gdb-massage-args |
| 279 | 'gud-gdb-marker-filter 'gud-gdb-find-file) | 280 | 'gud-gdb-marker-filter 'gud-gdb-find-file) |