/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by nickrob, Wed Sep 17 18:33:38 2003 UTC revision 1.9 by nickrob, Mon Sep 22 22:02:51 2003 UTC
# Line 96  Used to grey out relevant toolbar icons. Line 96  Used to grey out relevant toolbar icons.
96      ([run]      menu-item "Run" gud-run      ([run]      menu-item "Run" gud-run
97                       :enable (and (not gud-running)                       :enable (and (not gud-running)
98                                    (memq gud-minor-mode '(gdba gdb dbx jdb))))                                    (memq gud-minor-mode '(gdba gdb dbx jdb))))
99      ([goto]     menu-item "Continue to selection" gud-until      ([until]    menu-item "Continue to selection" gud-until
100                       :enable (and (not gud-running)                       :enable (and (not gud-running)
101                                    (memq gud-minor-mode '(gdba gdb))))                                    (memq gud-minor-mode '(gdba gdb perldb))))
102      ([remove]   menu-item "Remove Breakpoint" gud-remove      ([remove]   menu-item "Remove Breakpoint" gud-remove
103                       :enable (not gud-running))                       :enable (not gud-running))
104      ([tbreak]   menu-item "Temporary Breakpoint" gud-tbreak      ([tbreak]   menu-item "Temporary Breakpoint" gud-tbreak
# Line 1254  and source-file directory for your debug Line 1254  and source-file directory for your debug
1254    (set (make-local-variable 'gud-minor-mode) 'perldb)    (set (make-local-variable 'gud-minor-mode) 'perldb)
1255    
1256    (gud-def gud-break  "b %l"         "\C-b" "Set breakpoint at current line.")    (gud-def gud-break  "b %l"         "\C-b" "Set breakpoint at current line.")
1257    (gud-def gud-remove "d %l"         "\C-d" "Remove breakpoint at current line")    (gud-def gud-remove "B %l"         "\C-d" "Remove breakpoint at current line")
1258    (gud-def gud-step   "s"            "\C-s" "Step one source line with display.")    (gud-def gud-step   "s"            "\C-s" "Step one source line with display.")
1259    (gud-def gud-next   "n"            "\C-n" "Step one line (skip functions).")    (gud-def gud-next   "n"            "\C-n" "Step one line (skip functions).")
1260    (gud-def gud-cont   "c"            "\C-r" "Continue with display.")    (gud-def gud-cont   "c"            "\C-r" "Continue with display.")
# Line 1262  and source-file directory for your debug Line 1262  and source-file directory for your debug
1262  ;  (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")  ;  (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
1263  ;  (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")  ;  (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
1264    (gud-def gud-print  "p %e"          "\C-p" "Evaluate perl expression at point.")    (gud-def gud-print  "p %e"          "\C-p" "Evaluate perl expression at point.")
1265      (gud-def gud-until  "c %l"          "\C-u" "Continue to current line.")
1266    
1267    
1268    (setq comint-prompt-regexp "^  DB<+[0-9]+>+ ")    (setq comint-prompt-regexp "^  DB<+[0-9]+>+ ")
1269    (setq paragraph-start comint-prompt-regexp)    (setq paragraph-start comint-prompt-regexp)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26