blob: fd63b7c0246595ba6fa2a2f10b85f21a54c0e262 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
$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
|
