From: Richard M. Stallman Date: Wed, 18 Sep 2002 16:02:14 +0000 (+0000) Subject: (gud-pdb-marker-regexp): Allow : and \ in file name. X-Git-Tag: ttn-vms-21-2-B4~13128 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a385f6bfe3d6d5727473fb0c891c4671956d3553;p=emacs.git (gud-pdb-marker-regexp): Allow : and \ in file name. (pdb): In gud-remove, pass down the file name. --- diff --git a/lisp/gud.el b/lisp/gud.el index b1eee6fbff8..c871a35f192 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1322,7 +1322,7 @@ 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: "> (0)?()" (defvar gud-pdb-marker-regexp - "^> \\([-a-zA-Z0-9_/.]*\\|\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\)()\\(->[^\n]*\\)?\n") + "^> \\([-a-zA-Z0-9_/.:\\]*\\|\\)(\\([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 @@ and source-file directory for your debugger." (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.")