(gdb): Bind comint-file-name-regexp.
This commit is contained in:
parent
43d3039dff
commit
80e2afdd25
1 changed files with 7 additions and 6 deletions
13
lisp/gud.el
13
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)
|
||||
|
|
Loading…
Add table
Reference in a new issue