procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gud-query-cmdline, gud-common-init): Revert

Browse source 
inadvertant changes made with last commit.
This commit is contained in:
Nick Roberts 2006-05-30 21:43:16 +00:00
parent 318474dc75
commit d792d4449a
1 changed files with 2 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/gud.el
View file

@ -645,8 +645,7 @@ required by the caller."
:inherit minibuffer-local-map)
(defun gud-query-cmdline (minor-mode &optional init)
(let* ((comint-file-name-quote-list '(32))
(hist-sym (gud-symbol 'history nil minor-mode))
(let* ((hist-sym (gud-symbol 'history nil minor-mode))
(cmd-name (gud-val 'command-name minor-mode)))
(unless (boundp hist-sym) (set hist-sym nil))
(read-from-minibuffer
@ -2538,16 +2537,7 @@ comint mode, which see."
;; for local variables in the debugger buffer.
(defun gud-common-init (command-line massage-args marker-filter
&optional find-file)
(let* (string
(words
;; Do this to allow spaces in filenames.
(let (temp-words)
(dolist (word (split-string command-line "[ \f\t\n\r\v]")
(nreverse temp-words))
(if (string-match "\\(.*?\\)\\\\$" word)
(setq string (concat string (match-string 1 word) " "))
(push (concat string word) temp-words)
(setq string nil)))))
(let* ((words (split-string command-line))
(program (car words))
(dir default-directory)
;; Extract the file name from WORDS