Mercurial > emacs
comparison lisp/gud.el @ 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 | b2fb48df4f9f |
| children | 6ee65f935a8c |
comparison
equal
deleted
inserted
replaced
| 47529:9b53ca22ace7 | 47530:cfea5643ff62 |
|---|---|
| 1320 (defvar gud-pdb-history nil) | 1320 (defvar gud-pdb-history nil) |
| 1321 | 1321 |
| 1322 ;; Last group is for return value, e.g. "> test.py(2)foo()->None" | 1322 ;; Last group is for return value, e.g. "> test.py(2)foo()->None" |
| 1323 ;; Either file or function name may be omitted: "> <string>(0)?()" | 1323 ;; Either file or function name may be omitted: "> <string>(0)?()" |
| 1324 (defvar gud-pdb-marker-regexp | 1324 (defvar gud-pdb-marker-regexp |
| 1325 "^> \\([-a-zA-Z0-9_/.]*\\|<string>\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\)()\\(->[^\n]*\\)?\n") | 1325 "^> \\([-a-zA-Z0-9_/.:\\]*\\|<string>\\)(\\([0-9]+\\))\\([a-zA-Z0-9_]*\\|\\?\\)()\\(->[^\n]*\\)?\n") |
| 1326 (defvar gud-pdb-marker-regexp-file-group 1) | 1326 (defvar gud-pdb-marker-regexp-file-group 1) |
| 1327 (defvar gud-pdb-marker-regexp-line-group 2) | 1327 (defvar gud-pdb-marker-regexp-line-group 2) |
| 1328 (defvar gud-pdb-marker-regexp-fnname-group 3) | 1328 (defvar gud-pdb-marker-regexp-fnname-group 3) |
| 1329 | 1329 |
| 1330 (defvar gud-pdb-marker-regexp-start "^> ") | 1330 (defvar gud-pdb-marker-regexp-start "^> ") |
| 1404 (gud-common-init command-line nil | 1404 (gud-common-init command-line nil |
| 1405 'gud-pdb-marker-filter 'gud-pdb-find-file) | 1405 'gud-pdb-marker-filter 'gud-pdb-find-file) |
| 1406 (set (make-local-variable 'gud-minor-mode) 'pdb) | 1406 (set (make-local-variable 'gud-minor-mode) 'pdb) |
| 1407 | 1407 |
| 1408 (gud-def gud-break "break %l" "\C-b" "Set breakpoint at current line.") | 1408 (gud-def gud-break "break %l" "\C-b" "Set breakpoint at current line.") |
| 1409 (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line") | 1409 (gud-def gud-remove "clear %f:%l" "\C-d" "Remove breakpoint at current line") |
| 1410 (gud-def gud-step "step" "\C-s" "Step one source line with display.") | 1410 (gud-def gud-step "step" "\C-s" "Step one source line with display.") |
| 1411 (gud-def gud-next "next" "\C-n" "Step one line (skip functions).") | 1411 (gud-def gud-next "next" "\C-n" "Step one line (skip functions).") |
| 1412 (gud-def gud-cont "continue" "\C-r" "Continue with display.") | 1412 (gud-def gud-cont "continue" "\C-r" "Continue with display.") |
| 1413 (gud-def gud-finish "return" "\C-f" "Finish executing current function.") | 1413 (gud-def gud-finish "return" "\C-f" "Finish executing current function.") |
| 1414 (gud-def gud-up "up" "<" "Up one stack frame.") | 1414 (gud-def gud-up "up" "<" "Up one stack frame.") |