Skip to content
Snippets Groups Projects
Commit 2f3d7e8d authored by wlott's avatar wlott
Browse files

Changed int-char to code-char, 'cause int-char no longer exists.

parent 8537f9ea
No related branches found
No related tags found
No related merge requests found
...@@ -353,7 +353,7 @@ ...@@ -353,7 +353,7 @@
(unless (hemlock-bound-p 'process :buffer (current-buffer)) (unless (hemlock-bound-p 'process :buffer (current-buffer))
(editor-error "Not in a process buffer.")) (editor-error "Not in a process buffer."))
(let ((stream (ext:process-pty (value process)))) (let ((stream (ext:process-pty (value process))))
(write-char (int-char 4) stream) (write-char (code-char 4) stream)
(force-output stream))) (force-output stream)))
(defcommand "Interrupt Buffer Subprocess" (p) (defcommand "Interrupt Buffer Subprocess" (p)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment