From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 5 Jul 2008 09:36:39 +0000 (+0000)
Subject: (gud-gdb-get-stackframe): Allow absolute
X-Git-Tag: emacs-pretest-23.0.90~4322
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8baaa6b124c4f2b02089020dd3a0346052e6320;p=emacs.git

(gud-gdb-get-stackframe): Allow absolute
filenames in stack trace (text command mode).
---

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."
 		    (string-match "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" e)
 		    (string-match "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" e)))
 	      (if (not (string-match
-			"at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e))
+			"at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e))
 		  nil
 		(setcar newlst
 			(list (nth 0 (car newlst))
@@ -901,7 +901,7 @@ It is passed through FILTER before we look at it."
 	    (setq newlst
 		  (cons
 		   (if (string-match
-			"at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e)
+			"at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e)
 		       (list name num (match-string 1 e)
 			     (match-string 2 e))
 		     (list name num))