Mercurial > emacs

comparison lisp/progmodes/gud.el @ 52524:84470539e96f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(perldb): Change gud-print from just "%e" to "p %e" to actually print the value in the GUD buffer.
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 17 Sep 2003 18:33:38 +0000
parents 261a321c464e
children a0055e15e603
comparison
equal deleted inserted replaced
52523:8a1964b2faf1 52524:84470539e96f
1259 (gud-def gud-next "n" "\C-n" "Step one line (skip functions).") 1259 (gud-def gud-next "n" "\C-n" "Step one line (skip functions).")
1260 (gud-def gud-cont "c" "\C-r" "Continue with display.") 1260 (gud-def gud-cont "c" "\C-r" "Continue with display.")
1261 ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.") 1261 ; (gud-def gud-finish "finish" "\C-f" "Finish executing current function.")
1262 ; (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") 1262 ; (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).") 1263 ; (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).")
1264 (gud-def gud-print "%e" "\C-p" "Evaluate perl expression at point.") 1264 (gud-def gud-print "p %e" "\C-p" "Evaluate perl expression at point.")
1265 1265
1266 (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ") 1266 (setq comint-prompt-regexp "^ DB<+[0-9]+>+ ")
1267 (setq paragraph-start comint-prompt-regexp) 1267 (setq paragraph-start comint-prompt-regexp)
1268 (run-hooks 'perldb-mode-hook)) 1268 (run-hooks 'perldb-mode-hook))
1269 1269