From: Nick Roberts <nickrob@snap.net.nz>
Date: Tue, 30 May 2006 21:43:16 +0000 (+0000)
Subject: (gud-query-cmdline, gud-common-init): Revert
X-Git-Tag: emacs-pretest-22.0.90~2171
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d792d4449aa248bdc6fdb279917a07c2024cfdb1;p=emacs.git

(gud-query-cmdline, gud-common-init): Revert
inadvertant changes made with last commit.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index c54d76f1d3e..292ebdff107 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -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