176f94aaff
- sys::debug-* functions now take an argument (since 2.45) - fix prompt regexp to match reality
35 lines
1.2 KiB
Text
35 lines
1.2 KiB
Text
$NetBSD: patch-ae,v 1.1 2008/10/11 19:25:53 uwe Exp $
|
|
|
|
--- ilisp-chs.el.orig 2002-08-20 15:36:41.000000000 +0400
|
|
+++ ilisp-chs.el
|
|
@@ -85,7 +85,7 @@
|
|
ilisp-error-regexp
|
|
"\\(ILISP:[^\"]*\\)\\|\\(\\*\\*[^\n]*\\)"
|
|
|
|
- ilisp-reset "(sys::debug-unwind)"
|
|
+ ilisp-reset "(sys::debug-quit nil)"
|
|
ilisp-block-command "(progn %s)"
|
|
ilisp-find-source-command nil
|
|
ilisp-callers-command nil
|
|
@@ -96,9 +96,9 @@
|
|
;; proper extension. See file 'ilisp-cl.el'.
|
|
;; ilisp-binary-extension "fas"
|
|
|
|
- comint-prompt-regexp "^\\([0-9]+\\. Break \\[[0-9]+\\]> \\|[^>]*> \\)"
|
|
- comint-interrupt-regexp "\\(\\*\\*\\* - [A-Za-z]*: User break\\)"
|
|
- comint-fix-error "(sys::debug-unwind)"
|
|
+ comint-prompt-regexp "^\\(Break [0-9]+ \\[[0-9]+\\]> \\|[^>]*> \\)"
|
|
+ comint-interrupt-regexp "\\(\\*\\*\\* - [-A-Za-z]*: User break\\)"
|
|
+ comint-fix-error "(sys::debug-unwind nil)"
|
|
comint-continue "continue"
|
|
comint-prompt-status
|
|
(function
|
|
@@ -108,7 +108,7 @@
|
|
;; ILD Support. NIL values mean that more work is needed or that the
|
|
;; particular command is not available
|
|
|
|
- (setq ild-abort-string "(sys::debug-unwind)"
|
|
+ (setq ild-abort-string "(sys::debug-unwind nil)"
|
|
ild-continue-string "continue"
|
|
ild-next-string "up"
|
|
ild-next-string-arg nil
|