From 12e7d5871366a9df9a2fdd1d555b2a38d1c29569 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 30 May 2006 08:10:49 +0000 Subject: [PATCH] (gud-stop-subjob): Make it work in all buffers. --- lisp/progmodes/gud.el | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index bbb9df4cb2c..c54d76f1d3e 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -130,10 +130,10 @@ Used to grey out relevant togolbar icons.") (defun gud-stop-subjob () (interactive) - (if (string-equal - (buffer-local-value 'gud-target-name gud-comint-buffer) "emacs") - (comint-stop-subjob) - (comint-interrupt-subjob))) + (with-current-buffer gud-comint-buffer + (if (string-equal gud-target-name "emacs") + (comint-stop-subjob) + (comint-interrupt-subjob)))) (easy-mmode-defmap gud-menu-map '(([help] "Info" . gud-goto-info) @@ -645,7 +645,8 @@ required by the caller." :inherit minibuffer-local-map) (defun gud-query-cmdline (minor-mode &optional init) - (let* ((hist-sym (gud-symbol 'history nil minor-mode)) + (let* ((comint-file-name-quote-list '(32)) + (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 @@ -2537,7 +2538,16 @@ 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* ((words (split-string command-line)) + (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))))) (program (car words)) (dir default-directory) ;; Extract the file name from WORDS -- 2.39.5