[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, v [EMACS_22_BAS
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, v [EMACS_22_BASE] |
Date: |
Sat, 15 Sep 2007 08:09:07 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Nick Roberts <nickrob> 07/09/15 08:09:07
Index: gdb-ui.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-ui.el,v
retrieving revision 1.206.2.4
retrieving revision 1.206.2.5
diff -u -b -r1.206.2.4 -r1.206.2.5
--- gdb-ui.el 13 Aug 2007 09:28:31 -0000 1.206.2.4
+++ gdb-ui.el 15 Sep 2007 08:09:07 -0000 1.206.2.5
@@ -223,6 +223,9 @@
The directory containing FILE becomes the initial working directory
and source-file directory for your debugger.
+This function requires that GDB is run with \"--annotate=3\", so
+don't edit this option in the mini-buffer.
+
If `gdb-many-windows' is nil (the default value) then gdb just
pops up the GUD buffer unless `gdb-show-main' is t. In this case
it starts with two windows: one displaying the GUD buffer and the
@@ -270,6 +273,10 @@
;;
(interactive (list (gud-query-cmdline 'gdba)))
;;
+ ;; Do this early in case user enters commands before GDB is ready.
+ (setq comint-input-sender 'gdb-send)
+ (setq gdb-ready nil)
+
;; Let's start with a basic gud-gdb buffer and then modify it a bit.
(gdb command-line)
(gdb-init-1))
@@ -1124,6 +1131,7 @@
(defun gdb-send (proc string)
"A comint send filter for gdb.
This filter may simply queue input for a later time."
+ (when gdb-ready
(with-current-buffer gud-comint-buffer
(let ((inhibit-read-only t))
(remove-text-properties (point-min) (point-max) '(face))))
@@ -1137,7 +1145,7 @@
(let ((item (concat gdb-continuation string
(if (not comint-input-sender-no-newline) "\n"))))
(gdb-enqueue-input item)
- (setq gdb-continuation nil)))))
+ (setq gdb-continuation nil))))))
;; Note: Stuff enqueued here will be sent to the next prompt, even if it
;; is a query, or other non-top-level prompt.
@@ -1193,8 +1201,9 @@
;; any newlines.
;;
-(defcustom gud-gdba-command-name "gdb -annotate=3"
- "Default command to execute an executable under the GDB-UI debugger."
+(defcustom gud-gdba-command-name "gdb --annotate=3"
+ "Default command to execute an executable under the GDB-UI debugger.
+The option \"--annotate=3\" must be included in it's value."
:type 'string
:group 'gud
:version "22.1")
@@ -2996,7 +3005,8 @@
(gdb-get-buffer-create 'gdb-breakpoints-buffer)
(if gdb-show-main
(let ((pop-up-windows t))
- (display-buffer (gud-find-file gdb-main-file))))))
+ (display-buffer (gud-find-file gdb-main-file)))))
+ (setq gdb-ready t))
(defun gdb-get-location (bptno line flag)
"Find the directory containing the relevant source file.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el, v [EMACS_22_BASE],
Nick Roberts <=