[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

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))