diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index a00a9dc..447fb65 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -1008,7 +1008,8 @@ Event handlers + daemon I/O + main loop. nil :bold sel-p) (incf y-off))))))) (sleep 0.1))) - (uiop:terminate-process cat-proc)) + (uiop:terminate-process cat-proc) + (add-msg :system (format nil "* cat ~a ended *" (uiop:process-info-pid cat-proc)))) (progn (disconnect-daemon)))) #+END_SRC