aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/gud.el4
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))