Changeset 4131 for trunk/lisp/progmodes/gdb-ui.el

Timestamp:

07/29/06 07:48:34 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/progmodes/gdb-ui.el (modified) (11 diffs)

trunk/lisp/progmodes/gdb-ui.el

@@ -435 +435 @@
-            (gdb-create-define-alist)
-            (add-hook 'after-save-hook 'gdb-create-define-alist nil t))))))
-
+
+
-
-(defun gdb-find-watch-expression ()
@@ -1210 +1211 @@
-  (setq gdb-flush-pending-output t)
-  (setq gud-running nil)
-
+
+
-  (setq gdb-output-sink 'user)
-  (setq gdb-input-queue nil)
@@ -1250 +1252 @@
-This sends the next command (if any) to gdb."
-  (when gdb-first-prompt
-
+
+
-    (gdb-init-1)
-    (setq gdb-first-prompt nil))
@@ -1288 +1291 @@
-        (setq gud-running t)
-        (setq gdb-inferior-status "running")
-
+
+
-        (gdb-remove-text-properties)
-        (setq gud-old-arrow gud-overlay-arrow-position)
@@ -1301 +1305 @@
-(defun gdb-signal (ignored)
-  (setq gdb-inferior-status "signal")
-
+
+
-  (gdb-stopping ignored))
-
@@ -1328 +1333 @@
-  (setq gud-old-arrow nil)
-  (setq gdb-inferior-status "exited")
-
+
+
-  (gdb-stopping ignored))
-
@@ -1376 +1382 @@
-  (unless (member gdb-inferior-status '("exited" "signal"))
-    (setq gdb-inferior-status "stopped")
-
+
+
-  (let ((sink gdb-output-sink))
-    (cond
@@ -1748 +1755 @@
-    (with-current-buffer (gdb-get-buffer 'gdb-breakpoints-buffer)
-      (save-excursion
+        (let ((buffer-read-only nil))
-        (goto-char (point-min))
-        (while (< (point) (- (point-max) 1))
@@ -1756 +1764 @@
-                (setq bptno (match-string 1))
-                (setq flag (char-after (match-beginning 2)))
+                (add-text-properties
+                 (match-beginning 2) (match-end 2)
+                 (if (eq flag ?y)
+                     '(face font-lock-warning-face)
+                   '(face font-lock-type-face)))
-                (beginning-of-line)
-                (if (re-search-forward " in \\(.*\\) at\\s-+" nil t)
-                    (progn
-let ((buffer-read-only nil))
-       (add-text-properties
-                            '(face font-lock-function-name-face)
+add-text-properties
+      
+       '(face font-lock-function-name-face
-                      (looking-at "\\(\\S-+\\):\\([0-9]+\\)")
- (buffer-read-only nil)
+
-                            (file (match-string 1)))
-                        (add-text-properties (line-beginning-position)
@@ -1793 +1806 @@
-                                 `(lambda () (gdb-get-location
-                                              ,bptno ,line ,flag))))))))))
-
+)
-  (if (gdb-get-buffer 'gdb-assembler-buffer) (gdb-assembler-custom)))
-
@@ -3269 +3282 @@
-          (gdb-create-define-alist)
-          (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))))
-
+
+
-
-; Uses "-var-list-children --all-values".  Needs GDB 6.1 onwards.