- 139 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/01/11(日) 09:55:35 ID:MqTiKgzj0]
- \0を置換してexecute-subprocessすれば良いのでは。
(defun my-execute-subprocess (cmd)
(interactive "e& \np" :history0 'execute)
(setf cmd (substitute-string cmd "\\\\0" (buffer-name (selected-buffer))))
(execute-subprocess cmd))
(define-key ctl-x-map #\& 'my-execute-subprocess)
