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 |
|
|
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) |
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 ?.)) |
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 |