「M-& など」という事ですが、ここでは async-shell-command
に限って話を進めたいと思います。
async-shell-command
の実行の流れとしては以下の通りです。
- async-shell-command
- shell-command
- start-process
- (set-process-sentinel proc 'shell-command-sentinel)
最終的に set-process-sentinel
で実行プロセスの管理が開始されます(process status が変化する度に shell-command-sentinel
が実行されます)。
そこで、この shell-command-sentinel
にフックを付けます。具体的には nadvice
を使います。
(defun set-async-process-exit-status (process signal)
(when (eq (process-status process) 'exit)
(let ((buf (process-buffer process))
(st (process-exit-status process)))
(when (string-match "Async Shell Command" (buffer-name buf))
(set-buffer buf)
(setq-local exit-status st)
(goto-char (point-max))
(insert (format "\nExit status: %d\n" st))))))
(advice-add 'shell-command-sentinel :before #'set-async-process-exit-status)
詳しい説明は省きますが、プロセスが終了した段階で *Async Shell Command*
バッファに buffer local な変数である exit-status
にプロセスの exit status をセットして、その値をバッファの最後に表示します。
M-&
Async shell command: ls
:
(assoc 'exit-status (buffer-local-variables (get-buffer "*Async Shell Command*")))
=> (exit-status . 0)
M-&
Async shell command: hogehoge
:
(assoc 'exit-status (buffer-local-variables (get-buffer "*Async Shell Command*")))
=> (exit-status . 127)
(string-match "Async Shell Command" (buffer-name buf))
としている部分が async-shell-command
に依存していますので、async-shell-command
以外の elisp 関数で同じことを行う場合には適宜変更する必要があります。
M-& somecommand ; echo $?
のように実行して exit statusも一緒に表示させるようなコマンドを与えるぐらいでしょうか.