/[emacs]/emacs/lisp/gud.el
ViewVC logotype

Diff of /emacs/lisp/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.173 by nickrob, Mon Jan 20 22:03:50 2003 UTC revision 1.174 by lektu, Tue Feb 4 11:22:06 2003 UTC
# Line 1934  nil) Line 1934  nil)
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)
# Line 2519  Obeying it means displaying in another w Line 2519  Obeying it means displaying in another w
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)
# Line 2576  Obeying it means displaying in another w Line 2576  Obeying it means displaying in another w
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))
# Line 2830  class of the file (using s to separate n Line 2830  class of the file (using s to separate n
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)))
# Line 2855  class of the file (using s to separate n Line 2855  class of the file (using s to separate n
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)

Legend:
Removed from v.1.173  
changed lines
  Added in v.1.174

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26