Mercurial > emacs
changeset 47530:cfea5643ff62
(gud-pdb-marker-regexp): Allow : and \ in file name.
(pdb): In gud-remove, pass down the file name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Sep 2002 16:02:14 +0000 |
| parents | 9b53ca22ace7 |
| children | e7f753af9ceb |
| files | lisp/gud.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.")