/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.79 by nickrob, Tue Jun 14 21:14:48 2005 UTC revision 1.80 by nickrob, Wed Jun 22 08:45:01 2005 UTC
# Line 85  Line 85 
85  (defvar gdb-find-file-unhook nil)  (defvar gdb-find-file-unhook nil)
86  (defvar gdb-active-process nil "GUD tooltips display variable values when t, \  (defvar gdb-active-process nil "GUD tooltips display variable values when t, \
87  and #define directives otherwise.")  and #define directives otherwise.")
88    (defvar gdb-error "Non-nil when GDB is reporting an error.")
89  (defvar gdb-macro-info nil  (defvar gdb-macro-info nil
90    "Non-nil if GDB knows that the inferior includes preprocessor macro info.")    "Non-nil if GDB knows that the inferior includes preprocessor macro info.")
91    
# Line 359  Also display the main routine in the dis Line 360  Also display the main routine in the dis
360          gdb-flush-pending-output nil          gdb-flush-pending-output nil
361          gdb-location-alist nil          gdb-location-alist nil
362          gdb-find-file-unhook nil          gdb-find-file-unhook nil
363            gdb-error nil
364          gdb-macro-info nil)          gdb-macro-info nil)
365    ;;    ;;
366    (setq gdb-buffer-type 'gdba)    (setq gdb-buffer-type 'gdba)
# Line 860  This filter may simply queue input for a Line 862  This filter may simply queue input for a
862      ("watchpoint" gdb-stopping)      ("watchpoint" gdb-stopping)
863      ("frame-begin" gdb-frame-begin)      ("frame-begin" gdb-frame-begin)
864      ("stopped" gdb-stopped)      ("stopped" gdb-stopped)
865        ("error-begin" gdb-error)
866        ("error" gdb-error)
867      ) "An assoc mapping annotation tags to functions which process them.")      ) "An assoc mapping annotation tags to functions which process them.")
868    
869  (defun gdb-resync()  (defun gdb-resync()
# Line 989  sink to `user' in `gdb-stopping', that i Line 993  sink to `user' in `gdb-stopping', that i
993        (gdb-resync)        (gdb-resync)
994        (error "Unexpected stopped annotation")))))        (error "Unexpected stopped annotation")))))
995    
996    (defun gdb-error (ignored)
997      (setq gdb-error (not gdb-error)))
998    
999  (defun gdb-post-prompt (ignored)  (defun gdb-post-prompt (ignored)
1000    "An annotation handler for `post-prompt'.    "An annotation handler for `post-prompt'.
1001  This begins the collection of output from the current command if that  This begins the collection of output from the current command if that
# Line 1083  happens to be appropriate." Line 1090  happens to be appropriate."
1090        output)))        output)))
1091    
1092  (defun gdb-concat-output (so-far new)  (defun gdb-concat-output (so-far new)
1093      (if gdb-error
1094          (put-text-property 0 (length new) 'face font-lock-warning-face new))
1095    (let ((sink gdb-output-sink))    (let ((sink gdb-output-sink))
1096      (cond      (cond
1097       ((eq sink 'user) (concat so-far new))       ((eq sink 'user) (concat so-far new))

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26