* lisp/progmodes/gud.el (gud-pdb-marker-regexp): Accept \r char (Bug#5653).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e91bb059d60ab12369169eb802fc3d75260910d8..b13d321cc547e1e0e3ca79545bcf5f8abb5cb3f0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-06-27  Markus Heiser  <markus.heiser@darmarit.de>
+
+       * progmodes/gud.el (gud-pdb-marker-regexp): Accept \r char (Bug#5653).
+
 2011-06-27  Jambunathan K  <kjambunathan@gmail.com>
 
        * tar-mode.el (tar-untar-buffer): Set coding-system-for-write to

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 17e2143e041e95f1fa3ed51f1218d6b5566ae83a..9db36f7727db1e68c4ead1d68b969da2bb11bbe3 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -1595,7 +1595,8 @@ and source-file directory for your debugger."
 ;; Last group is for return value, e.g. "> test.py(2)foo()->None"
 ;; Either file or function name may be omitted: "> <string>(0)?()"
 (defvar gud-pdb-marker-regexp
-  "^> \\([-a-zA-Z0-9_/.:\\]*\\|<string>\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\|<module>\\)()\\(->[^\n]*\\)?\n")
+  "^> \\([-a-zA-Z0-9_/.:\\]*\\|<string>\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\|<module>\\)()\\(->[^\n\r]*\\)?[\n\r]")
+
 (defvar gud-pdb-marker-regexp-file-group 1)
 (defvar gud-pdb-marker-regexp-line-group 2)
 (defvar gud-pdb-marker-regexp-fnname-group 3)