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

[Juanma Barranquero]

Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.52 emacs/lisp/progmodes/gud.el:1.53
*** emacs/lisp/progmodes/gud.el:1.52    Fri Aug 19 15:03:28 2005
--- emacs/lisp/progmodes/gud.el Tue Aug 30 11:00:32 2005
***************
*** 45,50 ****
--- 45,59 ----
  (require 'comint)
  (require 'font-lock)
  
+ (defvar gdb-active-process)
+ (defvar gdb-define-alist)
+ (defvar gdb-macro-info)
+ (defvar gdb-server-prefix)
+ (defvar gdb-show-changed-values)
+ (defvar gdb-var-changed)
+ (defvar gdb-var-list)
+ (defvar tool-bar-map)
+ 
  ;; ======================================================================
  ;; GUD commands must be visible in C buffers visited by GUD
  
***************
*** 508,516 ****
         ;; to return - we don't include the marker in this text.
         output (concat output
                        (substring gud-marker-acc 0 (match-beginning 0)))
!        
         ;; Set the accumulator to the remaining text.
!        
         gud-marker-acc (substring gud-marker-acc (match-end 0)))
        (if (string-equal match "error-begin")
            (put-text-property 0 (length gud-marker-acc)
--- 517,525 ----
         ;; to return - we don't include the marker in this text.
         output (concat output
                        (substring gud-marker-acc 0 (match-beginning 0)))
! 
         ;; Set the accumulator to the remaining text.
! 
         gud-marker-acc (substring gud-marker-acc (match-end 0)))
        (if (string-equal match "error-begin")
            (put-text-property 0 (length gud-marker-acc)
***************
*** 2865,2876 ****
  If `->' is found, return `?.'.  If `.' is found, return `?.'.
  If any other punctuation is found, return `??'.
  If no punctuation is found, return `? '."
!   (let ((result ?\ )
        (syntax))
      (while (< span-start span-end)
        (setq syntax (char-syntax (char-after span-start)))
        (cond
!        ((= syntax ?\ ) t)
         ((= syntax ?.) (setq syntax (char-after span-start))
        (cond
         ((= syntax ?.) (setq result ?.))
--- 2874,2885 ----
  If `->' is found, return `?.'.  If `.' is found, return `?.'.
  If any other punctuation is found, return `??'.
  If no punctuation is found, return `? '."
!   (let ((result ?\s)
        (syntax))
      (while (< span-start span-end)
        (setq syntax (char-syntax (char-after span-start)))
        (cond
!        ((= syntax ?\s) t)
         ((= syntax ?.) (setq syntax (char-after span-start))
        (cond
         ((= syntax ?.) (setq result ?.))
***************
*** 2902,2908 ****
       ((= (car first) (car second)) nil)
       ((= (cdr first) (cdr second)) nil)
       ((= syntax ?.) t)
!      ((= syntax ?\ )
        (setq span-start (char-after (- span-start 1)))
        (setq span-end (char-after span-end))
        (cond
--- 2911,2917 ----
       ((= (car first) (car second)) nil)
       ((= (cdr first) (cdr second)) nil)
       ((= syntax ?.) t)
!      ((= syntax ?\s)
        (setq span-start (char-after (- span-start 1)))
        (setq span-end (char-after span-end))
        (cond