aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/gud.el13
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/gud.el b/lisp/gud.el
index 48664a05608..281ceb50573 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -268,13 +268,12 @@ and create such a submap in that new map."
268The directory containing FILE becomes the initial working directory 268The directory containing FILE becomes the initial working directory
269and source-file directory for your debugger." 269and source-file directory for your debugger."
270 (interactive 270 (interactive
271 (list (let ((comint-file-name-regexp "~/A-Za-z0-9+@:_.$#%,={}-")) 271 (list (read-from-minibuffer "Run gdb (like this): "
272 (read-from-minibuffer "Run gdb (like this): " 272 (if (consp gud-gdb-history)
273 (if (consp gud-gdb-history) 273 (car gud-gdb-history)
274 (car gud-gdb-history) 274 "gdb ")
275 "gdb ") 275 gdb-minibuffer-local-map nil
276 gdb-minibuffer-local-map nil 276 '(gud-gdb-history . 1))))
277 '(gud-gdb-history . 1)))))
278 277
279 (gud-common-init command-line 'gud-gdb-massage-args 278 (gud-common-init command-line 'gud-gdb-massage-args
280 'gud-gdb-marker-filter 'gud-gdb-find-file) 279 'gud-gdb-marker-filter 'gud-gdb-find-file)