comparison lisp/progmodes/gud.el @ 71092:d0758b1b38eb

(gud-stop-subjob): Make it work in all buffers.

71091:3407291ee367

	   (and (memq gud-minor-mode '(gdbmi gdba))
		(> (car (window-fringes)) 0)))))

(defun gud-stop-subjob ()
  (interactive)
  (if (string-equal
       (buffer-local-value 'gud-target-name gud-comint-buffer) "emacs")
      (comint-stop-subjob)
    (comint-interrupt-subjob)))

(easy-mmode-defmap gud-menu-map
  '(([help]     "Info" . gud-goto-info)
    ([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode
                  :enable (and (not emacs-basic-display)

  '(("\C-i" . comint-dynamic-complete-filename))
  "Keymap for minibuffer prompting of gud startup command."
  :inherit minibuffer-local-map)

(defun gud-query-cmdline (minor-mode &optional init)
  (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
     (format "Run %s (like this): " minor-mode)
     (or (car-safe (symbol-value hist-sym))

;; which starts with the program to debug.
;; The other three args specify the values to use
;; 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))
	 (program (car words))
	 (dir default-directory)
	 ;; Extract the file name from WORDS
	 ;; and put t in its place.
	 ;; Later on we will put the modified file name arg back there.

71092:d0758b1b38eb

	   (and (memq gud-minor-mode '(gdbmi gdba))
		(> (car (window-fringes)) 0)))))

(defun gud-stop-subjob ()
  (interactive)
  (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)
    ([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode
                  :enable (and (not emacs-basic-display)

  '(("\C-i" . comint-dynamic-complete-filename))
  "Keymap for minibuffer prompting of gud startup command."
  :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))
	 (cmd-name (gud-val 'command-name minor-mode)))
    (unless (boundp hist-sym) (set hist-sym nil))
    (read-from-minibuffer
     (format "Run %s (like this): " minor-mode)
     (or (car-safe (symbol-value hist-sym))

;; which starts with the program to debug.
;; The other three args specify the values to use
;; 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)))))
	 (program (car words))
	 (dir default-directory)
	 ;; Extract the file name from WORDS
	 ;; and put t in its place.
	 ;; Later on we will put the modified file name arg back there.