diff options
| author | Nick Roberts | 2008-07-05 09:36:39 +0000 |
|---|---|---|
| committer | Nick Roberts | 2008-07-05 09:36:39 +0000 |
| commit | c8baaa6b124c4f2b02089020dd3a0346052e6320 (patch) | |
| tree | 4e1bc816ac5ffa4f84926a4d15912b71c0e3644a | |
| parent | 95741663a9ee4bdedd5aff161b8b73ea152ba4f7 (diff) | |
| download | emacs-c8baaa6b124c4f2b02089020dd3a0346052e6320.tar.gz emacs-c8baaa6b124c4f2b02089020dd3a0346052e6320.zip | |
(gud-gdb-get-stackframe): Allow absolute
filenames in stack trace (text command mode).
| -rw-r--r-- | lisp/progmodes/gud.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index fadeae2e26c..7c1970f7aa2 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -889,7 +889,7 @@ It is passed through FILTER before we look at it." | |||
| 889 | (string-match "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" e) | 889 | (string-match "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" e) |
| 890 | (string-match "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" e))) | 890 | (string-match "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" e))) |
| 891 | (if (not (string-match | 891 | (if (not (string-match |
| 892 | "at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e)) | 892 | "at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e)) |
| 893 | nil | 893 | nil |
| 894 | (setcar newlst | 894 | (setcar newlst |
| 895 | (list (nth 0 (car newlst)) | 895 | (list (nth 0 (car newlst)) |
| @@ -901,7 +901,7 @@ It is passed through FILTER before we look at it." | |||
| 901 | (setq newlst | 901 | (setq newlst |
| 902 | (cons | 902 | (cons |
| 903 | (if (string-match | 903 | (if (string-match |
| 904 | "at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e) | 904 | "at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e) |
| 905 | (list name num (match-string 1 e) | 905 | (list name num (match-string 1 e) |
| 906 | (match-string 2 e)) | 906 | (match-string 2 e)) |
| 907 | (list name num)) | 907 | (list name num)) |