# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1032364934 0
# Node ID cfea5643ff62e1991291f5c9c92ddc7c4c5e1afb
# Parent  9b53ca22ace77437e27f0f34d296cf86f6182fc3
(gud-pdb-marker-regexp): Allow : and \ in file name.
(pdb): In gud-remove, pass down the file name.

diff -r 9b53ca22ace7 -r cfea5643ff62 lisp/gud.el
--- a/lisp/gud.el	Wed Sep 18 16:01:43 2002 +0000
+++ b/lisp/gud.el	Wed Sep 18 16:02:14 2002 +0000
@@ -1322,7 +1322,7 @@
 ;; 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_]*\\|\\?\\)()\\(->[^\n]*\\)?\n")
+  "^> \\([-a-zA-Z0-9_/.:\\]*\\|<string>\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\)()\\(->[^\n]*\\)?\n")
 (defvar gud-pdb-marker-regexp-file-group 1)
 (defvar gud-pdb-marker-regexp-line-group 2)
 (defvar gud-pdb-marker-regexp-fnname-group 3)
@@ -1406,7 +1406,7 @@
   (set (make-local-variable 'gud-minor-mode) 'pdb)
 
   (gud-def gud-break  "break %l"     "\C-b" "Set breakpoint at current line.")
-  (gud-def gud-remove "clear %l"     "\C-d" "Remove breakpoint at current line")
+  (gud-def gud-remove "clear %f:%l"  "\C-d" "Remove breakpoint at current line")
   (gud-def gud-step   "step"         "\C-s" "Step one source line with display.")
   (gud-def gud-next   "next"         "\C-n" "Step one line (skip functions).")
   (gud-def gud-cont   "continue"     "\C-r" "Continue with display.")