Slide 6
Slide 6 text
ඇಉظॲཧͭΒ͍
(defun mstk-start-async-1a ()
(setq proc (start-process
"mstk-start-async-1a"
(generate-new-buffer " *sh*")
"sh" "-c" "sleep 3; echo OK"))
(set-process-sentinel proc 'mstk-async-sentinel-1a))
(defun mstk-async-sentinel-1a (_process _event)
(message-box "mstk-start-async-1a finished."))
(mstk-start-async-1a)
Emacsݻ·Βͳ͘ͳΔ͕ɺ
sentinelʢ൪ฌʣؔඞཁ