Mercurial > emacs
comparison lisp/gud.el @ 49588:37645a051842
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 11:26:42 +0000 |
| parents | cea1991cf560 |
| children | 0eed24634607 |
comparison
equal
deleted
inserted
replaced
| 49587:e82b3fe06d4c | 49588:37645a051842 |
|---|---|
| 1932 (if (setq file-found | 1932 (if (setq file-found |
| 1933 (gud-jdb-find-source (match-string 2 gud-marker-acc))) | 1933 (gud-jdb-find-source (match-string 2 gud-marker-acc))) |
| 1934 (setq gud-last-frame | 1934 (setq gud-last-frame |
| 1935 (cons file-found | 1935 (cons file-found |
| 1936 (string-to-int | 1936 (string-to-int |
| 1937 (let | 1937 (let |
| 1938 ((numstr (match-string 4 gud-marker-acc))) | 1938 ((numstr (match-string 4 gud-marker-acc))) |
| 1939 (if (string-match "," numstr) | 1939 (if (string-match "," numstr) |
| 1940 (replace-match "" nil nil numstr) | 1940 (replace-match "" nil nil numstr) |
| 1941 numstr))))) | 1941 numstr))))) |
| 1942 (message "Could not find source file."))) | 1942 (message "Could not find source file."))) |
| 2517 (save-excursion | 2517 (save-excursion |
| 2518 (set-buffer buffer) | 2518 (set-buffer buffer) |
| 2519 (if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer)) | 2519 (if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer)) |
| 2520 (progn | 2520 (progn |
| 2521 (if | 2521 (if |
| 2522 (yes-or-no-p | 2522 (yes-or-no-p |
| 2523 (format "File %s changed on disk. Reread from disk? " | 2523 (format "File %s changed on disk. Reread from disk? " |
| 2524 (buffer-name))) | 2524 (buffer-name))) |
| 2525 (revert-buffer t t) | 2525 (revert-buffer t t) |
| 2526 (setq gud-keep-buffer t)))) | 2526 (setq gud-keep-buffer t)))) |
| 2527 (save-restriction | 2527 (save-restriction |
| 2574 ((eq key ?e) | 2574 ((eq key ?e) |
| 2575 (setq subst (gud-find-c-expr))) | 2575 (setq subst (gud-find-c-expr))) |
| 2576 ((eq key ?a) | 2576 ((eq key ?a) |
| 2577 (setq subst (gud-read-address))) | 2577 (setq subst (gud-read-address))) |
| 2578 ((eq key ?c) | 2578 ((eq key ?c) |
| 2579 (setq subst | 2579 (setq subst |
| 2580 (gud-find-class | 2580 (gud-find-class |
| 2581 (if insource | 2581 (if insource |
| 2582 (buffer-file-name) | 2582 (buffer-file-name) |
| 2583 (car frame)) | 2583 (car frame)) |
| 2584 (if insource | 2584 (if insource |
| 2585 (save-restriction | 2585 (save-restriction |
| 2828 (let ((nclass) (syntax) | 2828 (let ((nclass) (syntax) |
| 2829 (pos (point))) | 2829 (pos (point))) |
| 2830 ;; While the c-syntactic information does not start | 2830 ;; While the c-syntactic information does not start |
| 2831 ;; with the 'topmost-intro symbol, there may be | 2831 ;; with the 'topmost-intro symbol, there may be |
| 2832 ;; nested classes... | 2832 ;; nested classes... |
| 2833 (while (not (eq 'topmost-intro | 2833 (while (not (eq 'topmost-intro |
| 2834 (car (car (c-guess-basic-syntax))))) | 2834 (car (car (c-guess-basic-syntax))))) |
| 2835 ;; Check if the current position c-syntactic | 2835 ;; Check if the current position c-syntactic |
| 2836 ;; analysis has 'inclass | 2836 ;; analysis has 'inclass |
| 2837 (setq syntax (c-guess-basic-syntax)) | 2837 (setq syntax (c-guess-basic-syntax)) |
| 2838 (while | 2838 (while |
| 2839 (and (not (eq 'inclass (car (car syntax)))) | 2839 (and (not (eq 'inclass (car (car syntax)))) |
| 2840 (cdr syntax)) | 2840 (cdr syntax)) |
| 2841 (setq syntax (cdr syntax))) | 2841 (setq syntax (cdr syntax))) |
| 2842 (if (eq 'inclass (car (car syntax))) | 2842 (if (eq 'inclass (car (car syntax))) |
| 2843 (progn | 2843 (progn |
| 2853 (while (and (not (cdr (car syntax))) (cdr syntax)) | 2853 (while (and (not (cdr (car syntax))) (cdr syntax)) |
| 2854 (setq syntax (cdr syntax))) | 2854 (setq syntax (cdr syntax))) |
| 2855 (goto-char (cdr (car syntax))) | 2855 (goto-char (cdr (car syntax))) |
| 2856 )) | 2856 )) |
| 2857 (string-match (concat (car nclass) "$") class-found) | 2857 (string-match (concat (car nclass) "$") class-found) |
| 2858 (setq class-found | 2858 (setq class-found |
| 2859 (replace-match (mapconcat 'identity nclass "$") | 2859 (replace-match (mapconcat 'identity nclass "$") |
| 2860 t t class-found))))) | 2860 t t class-found))))) |
| 2861 (if (not class-found) | 2861 (if (not class-found) |
| 2862 (message "gud-find-class: class for file %s not found!" f)) | 2862 (message "gud-find-class: class for file %s not found!" f)) |
| 2863 class-found)) | 2863 class-found)) |