: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
;; 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