1934 |
(setq gud-last-frame |
(setq gud-last-frame |
1935 |
(cons file-found |
(cons file-found |
1936 |
(string-to-int |
(string-to-int |
1937 |
(let |
(let |
1938 |
((numstr (match-string 4 gud-marker-acc))) |
((numstr (match-string 4 gud-marker-acc))) |
1939 |
(if (string-match "," numstr) |
(if (string-match "," numstr) |
1940 |
(replace-match "" nil nil numstr) |
(replace-match "" nil nil numstr) |
2519 |
(if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer)) |
(if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer)) |
2520 |
(progn |
(progn |
2521 |
(if |
(if |
2522 |
(yes-or-no-p |
(yes-or-no-p |
2523 |
(format "File %s changed on disk. Reread from disk? " |
(format "File %s changed on disk. Reread from disk? " |
2524 |
(buffer-name))) |
(buffer-name))) |
2525 |
(revert-buffer t t) |
(revert-buffer t t) |
2576 |
((eq key ?a) |
((eq key ?a) |
2577 |
(setq subst (gud-read-address))) |
(setq subst (gud-read-address))) |
2578 |
((eq key ?c) |
((eq key ?c) |
2579 |
(setq subst |
(setq subst |
2580 |
(gud-find-class |
(gud-find-class |
2581 |
(if insource |
(if insource |
2582 |
(buffer-file-name) |
(buffer-file-name) |
2583 |
(car frame)) |
(car frame)) |
2830 |
;; While the c-syntactic information does not start |
;; While the c-syntactic information does not start |
2831 |
;; with the 'topmost-intro symbol, there may be |
;; with the 'topmost-intro symbol, there may be |
2832 |
;; nested classes... |
;; nested classes... |
2833 |
(while (not (eq 'topmost-intro |
(while (not (eq 'topmost-intro |
2834 |
(car (car (c-guess-basic-syntax))))) |
(car (car (c-guess-basic-syntax))))) |
2835 |
;; Check if the current position c-syntactic |
;; Check if the current position c-syntactic |
2836 |
;; analysis has 'inclass |
;; analysis has 'inclass |
2837 |
(setq syntax (c-guess-basic-syntax)) |
(setq syntax (c-guess-basic-syntax)) |
2838 |
(while |
(while |
2839 |
(and (not (eq 'inclass (car (car syntax)))) |
(and (not (eq 'inclass (car (car syntax)))) |
2840 |
(cdr syntax)) |
(cdr syntax)) |
2841 |
(setq syntax (cdr syntax))) |
(setq syntax (cdr syntax))) |
2855 |
(goto-char (cdr (car syntax))) |
(goto-char (cdr (car syntax))) |
2856 |
)) |
)) |
2857 |
(string-match (concat (car nclass) "$") class-found) |
(string-match (concat (car nclass) "$") class-found) |
2858 |
(setq class-found |
(setq class-found |
2859 |
(replace-match (mapconcat 'identity nclass "$") |
(replace-match (mapconcat 'identity nclass "$") |
2860 |
t t class-found))))) |
t t class-found))))) |
2861 |
(if (not class-found) |
(if (not class-found) |