diff options
author | jaortega <jaortega> | 2001-02-15 23:14:09 +0000 |
---|---|---|
committer | jaortega <jaortega> | 2001-02-15 23:14:09 +0000 |
commit | 903f14b8b17f1b236ac305cfb23f3600a8e82eec (patch) | |
tree | 37043a84ee5a738192aae5838d52013480da3743 /misc | |
parent | 9d97119cb4f191b7fa25a2d4913dd8bb41069776 (diff) | |
download | mdk-903f14b8b17f1b236ac305cfb23f3600a8e82eec.tar.gz mdk-903f14b8b17f1b236ac305cfb23f3600a8e82eec.tar.bz2 |
gud-break fix
Diffstat (limited to 'misc')
-rw-r--r-- | misc/mixvm.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/misc/mixvm.el b/misc/mixvm.el index 0a5e474..cc12604 100644 --- a/misc/mixvm.el +++ b/misc/mixvm.el @@ -1,5 +1,5 @@ ;;; mixvm.el --- mdk's mixvm / Emacs gud interaction -;; Copyright (C) 2001 Philip Ellis King +;; Copyright (C) 2001 Free Software Foundation, Inc. ;; Author: Philip Ellis King <pking@pdq.net> ;; Maintainer: Philip Ellis King <pking@pdq.net> @@ -96,9 +96,6 @@ ;; mixvm command, should we cache some info somewhere? (defun gud-mixvm-find-file (file) (save-excursion - ;; pek: concat'ing .mixal to the end of file is bad! - ;; mixvm is truncating the name of the actual file, - ;; though, so this will work in the meantime... (let* ((buf (find-file-noselect file))) (set-buffer buf) (gud-make-debug-menu) @@ -137,8 +134,8 @@ and source-file directory for your debugger." (gud-common-init command-line 'gud-mixvm-massage-args 'gud-mixvm-marker-filter 'gud-mixvm-find-file) -; (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-break "sbp %l" "\C-b" "Set breakpoint at current line.") + (gud-def gud-remove "cbp %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.") @@ -152,7 +149,7 @@ and source-file directory for your debugger." ; (local-set-key [menu-bar debug finish] '("Finish Function" . gud-finish)) ; (local-set-key [menu-bar debug up] '("Up Stack" . gud-up)) ; (local-set-key [menu-bar debug down] '("Down Stack" . gud-down)) - (setq comint-prompt-regexp "^MIX > *") + (setq comint-prompt-regexp "^MIX > ") (set (make-local-variable 'paragraph-start) comint-prompt-regexp) (run-hooks 'mixvm-mode-hook)) |