/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

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

revision 1.42 by nickrob, Tue Jun 14 21:14:12 2005 UTC revision 1.43 by nickrob, Fri Jun 24 01:31:50 2005 UTC
# Line 497  off the specialized speedbar mode." Line 497  off the specialized speedbar mode."
497      ;; Check for annotations and change gud-minor-mode to 'gdba if      ;; Check for annotations and change gud-minor-mode to 'gdba if
498      ;; they are found.      ;; they are found.
499      (while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)      (while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)
500        (when (string-equal (match-string 1 gud-marker-acc) "prompt")        (let ((match (match-string 1 gud-marker-acc)))
501          (require 'gdb-ui)          (when (string-equal match "prompt")
502          (gdb-prompt nil))            (require 'gdb-ui)
503              (gdb-prompt nil))
504        (setq  
505         ;; Append any text before the marker to the output we're going          (setq
506         ;; to return - we don't include the marker in this text.           ;; Append any text before the marker to the output we're going
507         output (concat output           ;; to return - we don't include the marker in this text.
508                        (substring gud-marker-acc 0 (match-beginning 0)))           output (concat output
509                            (substring gud-marker-acc 0 (match-beginning 0)))
510         ;; Set the accumulator to the remaining text.          
511         gud-marker-acc (substring gud-marker-acc (match-end 0))))           ;; Set the accumulator to the remaining text.
512            
513             gud-marker-acc (substring gud-marker-acc (match-end 0)))
514            (if (string-equal match "error-begin")
515                (put-text-property 0 (length gud-marker-acc)
516                                   'face font-lock-warning-face
517                                   gud-marker-acc))))
518    
519      ;; Does the remaining text look like it might end with the      ;; Does the remaining text look like it might end with the
520      ;; beginning of another marker?  If it does, then keep it in      ;; beginning of another marker?  If it does, then keep it in
# Line 3256  If GUD-TOOLTIP-DEREFERENCE is t, also pr Line 3262  If GUD-TOOLTIP-DEREFERENCE is t, also pr
3262    (when gud-tooltip-dereference    (when gud-tooltip-dereference
3263      (setq expr (concat "*" expr)))      (setq expr (concat "*" expr)))
3264    (case gud-minor-mode    (case gud-minor-mode
3265      (gdba (concat "server print " expr))          (gdba (concat "server print " expr))
3266      ((dbx gdbmi) (concat "print " expr))          ((dbx gdbmi) (concat "print " expr))
3267      (xdb (concat "p " expr))          (xdb (concat "p " expr))
3268      (sdb (concat expr "/"))          (sdb (concat expr "/"))
3269      (perldb expr)))          (perldb expr)))
3270    
3271  (defun gud-tooltip-tips (event)  (defun gud-tooltip-tips (event)
3272    "Show tip for identifier or selection under the mouse.    "Show tip for identifier or selection under the mouse.

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

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