[Top][All Lists]
[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