From 903f14b8b17f1b236ac305cfb23f3600a8e82eec Mon Sep 17 00:00:00 2001 From: jaortega Date: Thu, 15 Feb 2001 23:14:09 +0000 Subject: gud-break fix --- misc/mixvm.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'misc') 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 ;; Maintainer: Philip Ellis King @@ -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)) -- cgit v1.2.3