summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--misc/mixvm.el11
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))