[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el |
Date: |
Thu, 08 Dec 2005 17:10:50 -0500 |
Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.78 emacs/lisp/progmodes/gud.el:1.79
*** emacs/lisp/progmodes/gud.el:1.78 Fri Dec 2 09:15:56 2005
--- emacs/lisp/progmodes/gud.el Thu Dec 8 22:10:50 2005
***************
*** 436,443 ****
If the GUD BUFFER is not running a supported debugger, then turn
off the specialized speedbar mode. BUFFER is not used, but are
required by the caller."
! (when (and (boundp 'gud-comint-buffer)
! gud-comint-buffer
;; gud-comint-buffer might be killed
(buffer-name gud-comint-buffer))
(let* ((minor-mode (with-current-buffer buffer gud-minor-mode))
--- 436,442 ----
If the GUD BUFFER is not running a supported debugger, then turn
off the specialized speedbar mode. BUFFER is not used, but are
required by the caller."
! (when (and gud-comint-buffer
;; gud-comint-buffer might be killed
(buffer-name gud-comint-buffer))
(let* ((minor-mode (with-current-buffer buffer gud-minor-mode))
***************
*** 661,666 ****
--- 660,670 ----
and source-file directory for your debugger."
(interactive (list (gud-query-cmdline 'gdb)))
+ (if (and gud-comint-buffer
+ (buffer-name gud-comint-buffer)
+ (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)))
+ (error "Multiple debugging is only supported with \"gdb --fullname\""))
+
(gud-common-init command-line nil 'gud-gdb-marker-filter)
(set (make-local-variable 'gud-minor-mode) 'gdb)
***************
*** 3330,3336 ****
(gud-tooltip-activate-mouse-motions-if-enabled)
(if (and
gud-comint-buffer
! (buffer-name gud-comint-buffer); gud-comint-buffer might be kille
(with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba))))
(if gud-tooltip-mode
--- 3334,3340 ----
(gud-tooltip-activate-mouse-motions-if-enabled)
(if (and
gud-comint-buffer
! (buffer-name gud-comint-buffer); gud-comint-buffer might be killed
(with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba))))
(if gud-tooltip-mode
***************
*** 3384,3392 ****
(let (process)
(when (and (eventp event)
gud-tooltip-mode
- (boundp 'gud-comint-buffer)
gud-comint-buffer
! (buffer-name gud-comint-buffer); gud-comint-buffer might be
killed
(setq process (get-buffer-process gud-comint-buffer))
(posn-point (event-end event))
(or (and (eq gud-minor-mode 'gdba) (not gdb-active-process))
--- 3388,3395 ----
(let (process)
(when (and (eventp event)
gud-tooltip-mode
gud-comint-buffer
! (buffer-name gud-comint-buffer); might be killed
(setq process (get-buffer-process gud-comint-buffer))
(posn-point (event-end event))
(or (and (eq gud-minor-mode 'gdba) (not gdb-active-process))