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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
;;; -*- Mode: Emacs-Lisp -*-
;;; ilisp-hnd.el --
;;; This file is part of ILISP.
;;; Version: 5.8
;;;
;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
;;; 1993, 1994 Ivan Vasquez
;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
;;; 1996 Marco Antoniotti and Rick Campbell
;;;
;;; Other authors' names for which this Copyright notice also holds
;;; may appear later in this file.
;;;
;;; Send mail to 'ilisp-request@naggum.no' to be included in the
;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
;;; mailing list were bugs and improvements are discussed.
;;;
;;; ILISP is freely redistributable under the terms found in the file
;;; COPYING.
;;;
;;; ILISP Error handler
;;;
;; Do not handle errors by default.
(defvar ilisp-handle-errors nil)
;;;
(defun ilisp-handler (error-p wait-p message output prompt)
"Given ERROR-P, WAIT-P, MESSAGE, OUTPUT and PROMPT, show the message
and output if there is an error or the output is multiple lines and
let the user decide what to do."
(if (not ilisp-handle-errors)
(progn
(if message
(progn
(setq ilisp-last-message message
ilisp-last-prompt prompt)
(if (not wait-p) (lisp-display-output output))))
nil)
(if (and (not wait-p)
(setq output (comint-remove-whitespace output))
(or error-p (string-match "\n" output)))
(let* ((buffer (ilisp-output-buffer))
(out (if error-p
(funcall ilisp-error-filter output)
output))
(key
(if (and error-p (not (comint-interrupted)))
(comint-handle-error
out
"SPC-scroll, I-ignore, K-keep, A-abort sends and keep or B-break: "
'(?i ?k ?a ?b))
(comint-handle-error
out
"SPC-scroll, I-ignore, K-keep or A-abort sends and keep: "
'(?i ?k ?a))))
(clear comint-queue-emptied))
(if (= key ?i)
(progn
(message "Ignore message")
(if buffer
(funcall
(ilisp-temp-buffer-show-function)
buffer)
(ilisp-bury-output))
t)
(save-excursion
(set-buffer (get-buffer-create "*Errors*"))
(if clear (delete-region (point-min) (point-max)))
(goto-char (point-max))
(insert message)
(insert ?\n)
(insert out)
(insert "\n\n"))
(if clear (setq comint-queue-emptied nil))
(if (= key ?a)
(progn
(message "Abort pending commands and keep in *Errors*")
(comint-abort-sends)
t)
(if (= key ?b)
(progn
(comint-insert
(concat comment-start comment-start comment-start
message "\n"
output "\n" prompt))
(message "Preserve break") nil)
(message "Keep error in *Errors* and continue")
t))))
t)))
;;;
(defun ilisp-abort-handler ()
"Handle when the user aborts commands."
(setq ilisp-initializing nil
ilisp-load-files nil)
(let ((add nil))
(while ilisp-pending-changes
(if (not (memq (car ilisp-pending-changes) lisp-changes))
(setq add (cons (car ilisp-pending-changes) add)))
(setq ilisp-pending-changes (cdr ilisp-pending-changes)))
(setq lisp-changes (nconc lisp-changes add))))
|
