Mercurial > emacs
diff lisp/progmodes/gud.el @ 90225:a3716f7538f2
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-79
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 519-530)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 106-111)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 06 Sep 2005 00:25:20 +0000 |
parents | 2d92f5c9d6ae 88dc4b03facf |
children | fa0da9b57058 |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Fri Aug 26 09:51:52 2005 +0000 +++ b/lisp/progmodes/gud.el Tue Sep 06 00:25:20 2005 +0000 @@ -45,6 +45,15 @@ (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,9 +517,9 @@ ;; 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,12 +2874,12 @@ If `->' is found, return `?.'. If `.' is found, return `?.'. If any other punctuation is found, return `??'. If no punctuation is found, return `? '." - (let ((result ?\ ) + (let ((result ?\s) (syntax)) (while (< span-start span-end) (setq syntax (char-syntax (char-after span-start))) (cond - ((= syntax ?\ ) t) + ((= syntax ?\s) t) ((= syntax ?.) (setq syntax (char-after span-start)) (cond ((= syntax ?.) (setq result ?.)) @@ -2902,7 +2911,7 @@ ((= (car first) (car second)) nil) ((= (cdr first) (cdr second)) nil) ((= syntax ?.) t) - ((= syntax ?\ ) + ((= syntax ?\s) (setq span-start (char-after (- span-start 1))) (setq span-end (char-after span-end)) (cond