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

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.79 emacs/lisp/progmodes/gdb-ui.el:1.80
*** emacs/lisp/progmodes/gdb-ui.el:1.79 Tue Jun 14 21:14:48 2005
--- emacs/lisp/progmodes/gdb-ui.el      Wed Jun 22 08:45:01 2005
***************
*** 85,90 ****
--- 85,91 ----
  (defvar gdb-find-file-unhook nil)
  (defvar gdb-active-process nil "GUD tooltips display variable values when t, \
  and #define directives otherwise.")
+ (defvar gdb-error "Non-nil when GDB is reporting an error.")
  (defvar gdb-macro-info nil
    "Non-nil if GDB knows that the inferior includes preprocessor macro info.")
  
***************
*** 359,364 ****
--- 360,366 ----
        gdb-flush-pending-output nil
        gdb-location-alist nil
        gdb-find-file-unhook nil
+       gdb-error nil
        gdb-macro-info nil)
    ;;
    (setq gdb-buffer-type 'gdba)
***************
*** 860,865 ****
--- 862,869 ----
      ("watchpoint" gdb-stopping)
      ("frame-begin" gdb-frame-begin)
      ("stopped" gdb-stopped)
+     ("error-begin" gdb-error)
+     ("error" gdb-error)
      ) "An assoc mapping annotation tags to functions which process them.")
  
  (defun gdb-resync()
***************
*** 989,994 ****
--- 993,1001 ----
        (gdb-resync)
        (error "Unexpected stopped annotation")))))
  
+ (defun gdb-error (ignored)
+   (setq gdb-error (not gdb-error)))
+ 
  (defun gdb-post-prompt (ignored)
    "An annotation handler for `post-prompt'.
  This begins the collection of output from the current command if that
***************
*** 1083,1088 ****
--- 1090,1097 ----
        output)))
  
  (defun gdb-concat-output (so-far new)
+   (if gdb-error
+       (put-text-property 0 (length new) 'face font-lock-warning-face new))
    (let ((sink gdb-output-sink))
      (cond
       ((eq sink 'user) (concat so-far new))