[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gud.el
diff -u emacs/lisp/progmodes/gud.el:1.109 emacs/lisp/progmodes/gud.el:1.110
--- emacs/lisp/progmodes/gud.el:1.109   Tue May 30 08:10:49 2006
+++ emacs/lisp/progmodes/gud.el Tue May 30 21:43:16 2006
@@ -645,8 +645,7 @@
   :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 @@
 ;; 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