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
|
diff --git a/pure/etc/flycheck-pure.el b/pure/etc/flycheck-pure.el
index 152489ae..448d12d2 100644
--- a/pure/etc/flycheck-pure.el
+++ b/pure/etc/flycheck-pure.el
@@ -60,7 +60,7 @@
"A Pure syntax checker using the Pure interpreter.
See URL `https://agraef.github.io/pure-lang/'."
- :command ("pure" "--check" (option-flag "-w" flycheck-pure-warnings) source)
+ :command ("pure" "--check" "-I." (option-flag "-w" flycheck-pure-warnings) source)
:error-patterns
((warning line-start (file-name) ", line " line ": warning: " (message) line-end)
(error line-start (file-name) ", line " line ": " (message) line-end))
diff --git a/pure/etc/pure-mode.el.in b/pure/etc/pure-mode.el.in
index 221bfa52..5807a43a 100644
--- a/pure/etc/pure-mode.el.in
+++ b/pure/etc/pure-mode.el.in
@@ -874,7 +874,7 @@ Commands
"Starts a pdsend process to communicate with Pd via UDP port 4711."
(interactive)
(start-process "pdsend" nil "pdsend" "4711" "localhost" "udp")
- (process-kill-without-query (get-process "pdsend")))
+ (set-process-query-on-exit-flag (get-process "pdsend") nil))
(defun pd-pure-send-stop-process ()
"Stops a previously started pdsend process."
@@ -1421,7 +1421,7 @@ sending input, manipulating the command history, etc."
pure-last-dir dir)
(set-process-sentinel (get-process "pure-eval") 'pure-eval-sentinel)
(if (not pure-query-before-kill)
- (process-kill-without-query (get-process "pure-eval")))
+ (set-process-query-on-exit-flag (get-process "pure-eval") nil))
;; switch to and go to the end of the eval buffer
(pop-to-buffer "*pure-eval*")
(goto-char (point-max))
@@ -2270,7 +2270,7 @@ If prefix ARG is not nil, remove an existing tracepoint instead."
(indent-to (eval (cdr indent-fun)))
))))
-(defun pure-alignment-column (&optional lim &optional flag)
+(defun pure-alignment-column (&optional lim flag)
"Look for an alignment column (`=') in the vicinity of
point. LIM, if given, limits the search to the region between
point and LIM. Return a list of two elements: (EQUALS-COL
|