/[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.52 by schwab, Fri Aug 19 15:03:28 2005 UTC revision 1.53 by lektu, Tue Aug 30 11:00:32 2005 UTC
# Line 45  Line 45 
45  (require 'comint)  (require 'comint)
46  (require 'font-lock)  (require 'font-lock)
47    
48    (defvar gdb-active-process)
49    (defvar gdb-define-alist)
50    (defvar gdb-macro-info)
51    (defvar gdb-server-prefix)
52    (defvar gdb-show-changed-values)
53    (defvar gdb-var-changed)
54    (defvar gdb-var-list)
55    (defvar tool-bar-map)
56    
57  ;; ======================================================================  ;; ======================================================================
58  ;; GUD commands must be visible in C buffers visited by GUD  ;; GUD commands must be visible in C buffers visited by GUD
59    
# Line 508  off the specialized speedbar mode." Line 517  off the specialized speedbar mode."
517           ;; to return - we don't include the marker in this text.           ;; to return - we don't include the marker in this text.
518           output (concat output           output (concat output
519                          (substring gud-marker-acc 0 (match-beginning 0)))                          (substring gud-marker-acc 0 (match-beginning 0)))
520            
521           ;; Set the accumulator to the remaining text.           ;; Set the accumulator to the remaining text.
522            
523           gud-marker-acc (substring gud-marker-acc (match-end 0)))           gud-marker-acc (substring gud-marker-acc (match-end 0)))
524          (if (string-equal match "error-begin")          (if (string-equal match "error-begin")
525              (put-text-property 0 (length gud-marker-acc)              (put-text-property 0 (length gud-marker-acc)
# Line 2865  the character after the end of the expr. Line 2874  the character after the end of the expr.
2874  If `->' is found, return `?.'.  If `.' is found, return `?.'.  If `->' is found, return `?.'.  If `.' is found, return `?.'.
2875  If any other punctuation is found, return `??'.  If any other punctuation is found, return `??'.
2876  If no punctuation is found, return `? '."  If no punctuation is found, return `? '."
2877    (let ((result ?\ )    (let ((result ?\s)
2878          (syntax))          (syntax))
2879      (while (< span-start span-end)      (while (< span-start span-end)
2880        (setq syntax (char-syntax (char-after span-start)))        (setq syntax (char-syntax (char-after span-start)))
2881        (cond        (cond
2882         ((= syntax ?\ ) t)         ((= syntax ?\s) t)
2883         ((= syntax ?.) (setq syntax (char-after span-start))         ((= syntax ?.) (setq syntax (char-after span-start))
2884          (cond          (cond
2885           ((= syntax ?.) (setq result ?.))           ((= syntax ?.) (setq result ?.))
# Line 2902  Link exprs of the form: Line 2911  Link exprs of the form:
2911       ((= (car first) (car second)) nil)       ((= (car first) (car second)) nil)
2912       ((= (cdr first) (cdr second)) nil)       ((= (cdr first) (cdr second)) nil)
2913       ((= syntax ?.) t)       ((= syntax ?.) t)
2914       ((= syntax ?\ )       ((= syntax ?\s)
2915        (setq span-start (char-after (- span-start 1)))        (setq span-start (char-after (- span-start 1)))
2916        (setq span-end (char-after span-end))        (setq span-end (char-after span-end))
2917        (cond        (cond

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

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