File tree 4 files changed +7
-13
lines changed
4 files changed +7
-13
lines changed Original file line number Diff line number Diff line change @@ -104,7 +104,7 @@ when showing type information about symbols."
104
104
:type 'boolean
105
105
:safe 'booleanp )
106
106
107
- (defvar haskell-process-end-hook nil
107
+ (defvar haskell-process-ended-functions ( list 'haskell-process-prompt-restart )
108
108
" Hook for when the haskell process ends." )
109
109
110
110
;;;### autoload
Original file line number Diff line number Diff line change @@ -95,10 +95,10 @@ Key bindings:
95
95
(setq haskell-interactive-mode-history (list ))
96
96
(setq haskell-interactive-mode-history-index 0 )
97
97
98
- (setq next-error-function 'haskell-interactive-next-error-function )
98
+ (setq next-error-function # 'haskell-interactive-next-error-function )
99
99
(add-hook 'completion-at-point-functions
100
- 'haskell-interactive-mode-completion-at-point-function nil t )
101
-
100
+ # 'haskell-interactive-mode-completion-at-point-function nil t )
101
+ ( add-hook 'kill-buffer-hook # 'haskell-interactive-kill nil t )
102
102
(haskell-interactive-mode-prompt))
103
103
104
104
(defvar haskell-interactive-mode-prompt-start
Original file line number Diff line number Diff line change @@ -138,7 +138,7 @@ HPTYPE is the result of calling `'haskell-process-type`' function."
138
138
(haskell-process-log
139
139
(propertize " Process reset.\n "
140
140
'face font-lock-comment-face ))
141
- (run-hook-with-args 'haskell-process-ended-hook process))))))
141
+ (run-hook-with-args 'haskell-process-ended-functions process))))))
142
142
143
143
(defun haskell-process-filter (proc response )
144
144
" The filter for the process pipe."
@@ -233,7 +233,7 @@ HPTYPE is the result of calling `'haskell-process-type`' function."
233
233
'face '((:weight bold ))))
234
234
(process-send-string child out))
235
235
(unless (haskell-process-restarting process)
236
- (run-hook-with-args 'haskell-process-ended process)))))
236
+ (run-hook-with-args 'haskell-process-ended-functions process)))))
237
237
238
238
(defun haskell-process-live-updates (process )
239
239
" Process live updates."
@@ -271,7 +271,7 @@ the response."
271
271
(haskell-command-exec-go cmd))))
272
272
(progn (haskell-process-reset process)
273
273
(haskell-process-set process 'command-queue nil )
274
- (run-hook-with-args 'haskell-process-ended process))))
274
+ (run-hook-with-args 'haskell-process-ended-functions process))))
275
275
276
276
(defun haskell-process-queue-flushed-p (process )
277
277
" Return t if command queue has been completely processed."
Original file line number Diff line number Diff line change 36
36
(require 'haskell-utils )
37
37
(require 'haskell-customize )
38
38
39
- ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
40
- ; ; Basic configuration hooks
41
-
42
- (add-hook 'haskell-process-ended-hook 'haskell-process-prompt-restart )
43
- (add-hook 'kill-buffer-hook 'haskell-interactive-kill )
44
-
45
39
(defvar interactive-haskell-mode-map
46
40
(let ((map (make-sparse-keymap )))
47
41
(define-key map (kbd " C-c C-l" ) 'haskell-process-load-file )
You can’t perform that action at this time.
0 commit comments