emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el [lexbind]
Date: Tue, 06 Jul 2004 07:11:05 -0400

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.4.2.6 
emacs/lisp/progmodes/gdb-ui.el:1.4.2.7
*** emacs/lisp/progmodes/gdb-ui.el:1.4.2.6      Tue May 11 02:35:59 2004
--- emacs/lisp/progmodes/gdb-ui.el      Tue Jul  6 09:23:47 2004
***************
*** 1728,1742 ****
    "Exit a debugging session cleanly by killing the gdb buffers and resetting
   the source buffers."
    (dolist (buffer (buffer-list))
!     (if (not (eq buffer gud-comint-buffer))
!       (with-current-buffer buffer
!         (if (memq gud-minor-mode '(gdba pdb))
!             (if (string-match "^\*.+*$" (buffer-name))
!                 (kill-buffer nil)
!               (gdb-remove-breakpoint-icons (point-min) (point-max) t)
!               (setq gud-minor-mode nil)
!               (kill-local-variable 'tool-bar-map)
!               (setq gud-running nil))))))
    (when (markerp gdb-overlay-arrow-position)
      (move-marker gdb-overlay-arrow-position nil)
      (setq gdb-overlay-arrow-position nil))
--- 1728,1742 ----
    "Exit a debugging session cleanly by killing the gdb buffers and resetting
   the source buffers."
    (dolist (buffer (buffer-list))
!     (unless (eq buffer gud-comint-buffer)
!       (with-current-buffer buffer
!       (if (memq gud-minor-mode '(gdba pdb))
!           (if (string-match "\\`\\*.+\\*\\'" (buffer-name))
!               (kill-buffer nil)
!             (gdb-remove-breakpoint-icons (point-min) (point-max) t)
!             (setq gud-minor-mode nil)
!             (kill-local-variable 'tool-bar-map)
!             (setq gud-running nil))))))
    (when (markerp gdb-overlay-arrow-position)
      (move-marker gdb-overlay-arrow-position nil)
      (setq gdb-overlay-arrow-position nil))
***************
*** 2013,2017 ****
  
  (provide 'gdb-ui)
  
! ;;; arch-tag: e9fb00c5-74ef-469f-a088-37384caae352
  ;;; gdb-ui.el ends here
--- 2013,2017 ----
  
  (provide 'gdb-ui)
  
! ;; arch-tag: e9fb00c5-74ef-469f-a088-37384caae352
  ;;; gdb-ui.el ends here




reply via email to

[Prev in Thread] Current Thread [Next in Thread]