[Emacs-diffs] Changes to emacs/lisp/gud.el

[Richard M. Stallman]

Index: emacs/lisp/gud.el
diff -c emacs/lisp/gud.el:1.159 emacs/lisp/gud.el:1.160
*** emacs/lisp/gud.el:1.159     Thu Sep 12 17:26:27 2002
--- emacs/lisp/gud.el   Wed Sep 18 12:02:14 2002
***************
*** 1322,1328 ****
  ;; 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")
  (defvar gud-pdb-marker-regexp-file-group 1)
  (defvar gud-pdb-marker-regexp-line-group 2)
  (defvar gud-pdb-marker-regexp-fnname-group 3)
--- 1322,1328 ----
  ;; 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")
  (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,1412 ****
    (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-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.")
--- 1406,1412 ----
    (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 %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.")