Mercurial > emacs

comparison lisp/gud.el @ 49150:7ae18fc8cd2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-menu-map, gud-tool-bar-map, gdb): Change gud-goto to gud-until.
author Nick Roberts <nickrob@snap.net.nz>
date Sat, 11 Jan 2003 16:58:19 +0000
parents 8e748161e8cf
children cea1991cf560
comparison
equal deleted inserted replaced
49149:d7942db7fa35 49150:7ae18fc8cd2f
92 (easy-mmode-defmap gud-menu-map 92 (easy-mmode-defmap gud-menu-map
93 '(([refresh] "Refresh" . gud-refresh) 93 '(([refresh] "Refresh" . gud-refresh)
94 ([run] menu-item "Run" gud-run 94 ([run] menu-item "Run" gud-run
95 :enable (and (not gud-running) 95 :enable (and (not gud-running)
96 (memq gud-minor-mode '(gdba gdb jdb)))) 96 (memq gud-minor-mode '(gdba gdb jdb))))
97 ([goto] menu-item "Continue to selection" gud-goto 97 ([goto] menu-item "Continue to selection" gud-until
98 :enable (and (not gud-running) 98 :enable (and (not gud-running)
99 (memq gud-minor-mode '(gdba gdb)))) 99 (memq gud-minor-mode '(gdba gdb))))
100 ([remove] menu-item "Remove Breakpoint" gud-remove 100 ([remove] menu-item "Remove Breakpoint" gud-remove
101 :enable (not gud-running)) 101 :enable (not gud-running))
102 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak 102 ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
149 (dolist (x '((gud-break . "gud-break") 149 (dolist (x '((gud-break . "gud-break")
150 (gud-remove . "gud-remove") 150 (gud-remove . "gud-remove")
151 (gud-print . "gud-print") 151 (gud-print . "gud-print")
152 (gud-display . "gud-display") 152 (gud-display . "gud-display")
153 (gud-run . "gud-run") 153 (gud-run . "gud-run")
154 (gud-goto . "gud-goto") 154 (gud-until . "gud-until")
155 (gud-cont . "gud-cont") 155 (gud-cont . "gud-cont")
156 (gud-step . "gud-step") 156 (gud-step . "gud-step")
157 (gud-next . "gud-next") 157 (gud-next . "gud-next")
158 (gud-finish . "gud-finish") 158 (gud-finish . "gud-finish")
159 (gud-up . "gud-up") 159 (gud-up . "gud-up")
467 (gud-def gud-jump "tbreak %f:%l\njump %f:%l" "\C-j" "Relocate execution address to line at point in source buffer.") 467 (gud-def gud-jump "tbreak %f:%l\njump %f:%l" "\C-j" "Relocate execution address to line at point in source buffer.")
468 468
469 (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") 469 (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).")
470 (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") 470 (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).")
471 (gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") 471 (gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.")
472 (gud-def gud-goto "until %l" "\C-u" "Continue up to current line.") 472 (gud-def gud-until "until %l" "\C-u" "Continue up to current line.")
473 (gud-def gud-run "run" nil "Run the program.") 473 (gud-def gud-run "run" nil "Run the program.")
474 474
475 (local-set-key "\C-i" 'gud-gdb-complete-command) 475 (local-set-key "\C-i" 'gud-gdb-complete-command)
476 (setq comint-prompt-regexp "^(.*gdb[+]?) *") 476 (setq comint-prompt-regexp "^(.*gdb[+]?) *")
477 (setq paragraph-start comint-prompt-regexp) 477 (setq paragraph-start comint-prompt-regexp)