mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(gdb): Undo previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-08-01 22:37:47 +00:00
parent 76f63ea09c
commit f579226245
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/gud.el
View File

@ -268,13 +268,12 @@ and create such a submap in that new map."
The directory containing FILE becomes the initial working directory The directory containing FILE becomes the initial working directory
and source-file directory for your debugger." and source-file directory for your debugger."
(interactive (interactive
(list (let ((comint-file-name-regexp "~/A-Za-z0-9+@:_.$#%,={}-")) (list (read-from-minibuffer "Run gdb (like this): "
(read-from-minibuffer "Run gdb (like this): " (if (consp gud-gdb-history)
(if (consp gud-gdb-history) (car gud-gdb-history)
(car gud-gdb-history) "gdb ")
"gdb ") gdb-minibuffer-local-map nil
gdb-minibuffer-local-map nil '(gud-gdb-history . 1))))
'(gud-gdb-history . 1)))))
(gud-common-init command-line 'gud-gdb-massage-args (gud-common-init command-line 'gud-gdb-massage-args
'gud-gdb-marker-filter 'gud-gdb-find-file) 'gud-gdb-marker-filter 'gud-gdb-find-file)