From d792d4449aa248bdc6fdb279917a07c2024cfdb1 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 30 May 2006 21:43:16 +0000 Subject: [PATCH] (gud-query-cmdline, gud-common-init): Revert inadvertant changes made with last commit. --- lisp/progmodes/gud.el | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) 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 -- 2.39.5