Mercurial > emacs

comparison lisp/progmodes/gud.el @ 78768:d8140314e60f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gdb-ready): New variable. (gdb): Set it to nil. Set gud-running to nil here... (gud-common-init): ...instead of here.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 13 Sep 2007 06:26:20 +0000
parents 8bf8256b3ffa
children 4c662e5e1263
comparison
equal deleted inserted replaced
78767:fd5ce80ad827 78768:d8140314e60f
101 (if (boundp sym) (symbol-value sym)))) 101 (if (boundp sym) (symbol-value sym))))
102 102
103 (defvar gud-running nil 103 (defvar gud-running nil
104 "Non-nil if debugged program is running. 104 "Non-nil if debugged program is running.
105 Used to grey out relevant toolbar icons.") 105 Used to grey out relevant toolbar icons.")
106
107 (defvar gdb-ready nil)
106 108
107 ;; Use existing Info buffer, if possible. 109 ;; Use existing Info buffer, if possible.
108 (defun gud-goto-info () 110 (defun gud-goto-info ()
109 "Go to relevant Emacs info node." 111 "Go to relevant Emacs info node."
110 (interactive) 112 (interactive)
762 764
763 (local-set-key "\C-i" 'gud-gdb-complete-command) 765 (local-set-key "\C-i" 'gud-gdb-complete-command)
764 (setq comint-prompt-regexp "^(.*gdb[+]?) *") 766 (setq comint-prompt-regexp "^(.*gdb[+]?) *")
765 (setq paragraph-start comint-prompt-regexp) 767 (setq paragraph-start comint-prompt-regexp)
766 (setq gdb-first-prompt t) 768 (setq gdb-first-prompt t)
769 (setq gud-running nil)
770 (setq gdb-ready nil)
767 (setq gud-filter-pending-text nil) 771 (setq gud-filter-pending-text nil)
768 (run-hooks 'gdb-mode-hook)) 772 (run-hooks 'gdb-mode-hook))
769 773
770 ;; One of the nice features of GDB is its impressive support for 774 ;; One of the nice features of GDB is its impressive support for
771 ;; context-sensitive command completion. We preserve that feature 775 ;; context-sensitive command completion. We preserve that feature
2517 (gud-mode) 2521 (gud-mode)
2518 (set (make-local-variable 'gud-target-name) 2522 (set (make-local-variable 'gud-target-name)
2519 (and file-word (file-name-nondirectory file)))) 2523 (and file-word (file-name-nondirectory file))))
2520 (set (make-local-variable 'gud-marker-filter) marker-filter) 2524 (set (make-local-variable 'gud-marker-filter) marker-filter)
2521 (if find-file (set (make-local-variable 'gud-find-file) find-file)) 2525 (if find-file (set (make-local-variable 'gud-find-file) find-file))
2522 (setq gud-running nil)
2523 (setq gud-last-last-frame nil) 2526 (setq gud-last-last-frame nil)
2524 2527
2525 (set-process-filter (get-buffer-process (current-buffer)) 'gud-filter) 2528 (set-process-filter (get-buffer-process (current-buffer)) 'gud-filter)
2526 (set-process-sentinel (get-buffer-process (current-buffer)) 'gud-sentinel) 2529 (set-process-sentinel (get-buffer-process (current-buffer)) 'gud-sentinel)
2527 (gud-set-buffer)) 2530 (gud-set-buffer))