[xyzzy:01442] Re: command をキックして

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

逸見さん、こんにちは。

    Fri, 11 Dec 1998 13:16:37 +0900 の
   “[xyzzy:01440] command をキックして”
    への返事です.


| DOSのコマンド(コンソールアプリって言ったほうがいいのかな？）
| をキックして、結果を文字列として、取り出す事はできますか？

こんな感じでしょうか。

(defun command-substitution (command)
  (let ((outfile nil)
	(buffer nil))
    (unwind-protect
	(save-excursion
	  (setq buffer (create-new-buffer "*foo*"))
	  (setq outfile (make-temp-file-name))
	  (call-process command :output outfile :show :hide :wait t)
	  (set-buffer buffer)
	  (insert-file-contents outfile)
	  (goto-char (1- (point-max)))
	  (when (looking-for "\n")
	    (delete-char 1))
	  (goto-char (point-min))
	  (replace-buffer "\n+" " " :regexp t)
	  (buffer-substring (point-min) (point-max)))
      (and buffer
	   (delete-buffer buffer))
      (and outfile
	   (delete-file outfile)))))

| できればバッファーを開かないで、（気づかれないように）やりたい
| のですが。

気づかれてしまうかも(^^;

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx