Mercurial > emacs
changeset 71102:1cfc1ccfdfc2
(gud-query-cmdline, gud-common-init): Revert
inadvertant changes made with last commit.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Tue, 30 May 2006 21:43:16 +0000 |
| parents | dd2f1677d4ad |
| children | 4241daad4b09 |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 2 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Tue May 30 21:42:46 2006 +0000 +++ b/lisp/progmodes/gud.el Tue May 30 21:43:16 2006 +0000 @@ -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