[xyzzy:03075] Re: [Q] Shell モード

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

こんのさん、こんにちは。

        Sat, 24 Jul 1999 14:00:12 +0900 の
        [xyzzy:03073] Re: [Q] Shell  モード
        への返事です.

| xyzzyだけがおちたり、最悪の場合Win98がおちます。

うーむ・・・。何がまずいんでしょ? 全然分かりません(^^;

んでは、このようにしたらどうなるでしょうか?
と、command.com のせいにしてみたりして。
そういえば、C-x @ の方は動くんでしたっけ?

(defun execute-subprocess (cmd &optional (arg nil f) bufname environ)
  (interactive "e& \np" :history0 'execute)
  (unless bufname
    (setq bufname "*Command Output*"))
  (let* ((dir (default-directory))
	 (buffer
	  (save-excursion
	    (let* ((buffer (switch-to-buffer bufname))
		   (proc (buffer-process buffer)))
	      (when (and proc (eq (process-status proc) :run))
		(cond (f
		       (do ((x 0 (1+ x)))
			   ((progn
			      (setq buffer (switch-to-buffer (format nil "~A(~D)"
								     bufname x)))
			      (setq proc (buffer-process buffer))
			      (not (and proc (eq (process-status proc) :run)))))))
		      (t
		       (if (yes-or-no-p "すでにサブプロセスを実行中です。死なす?")
			   (signal-process proc)
			 (return-from execute-subprocess nil))
		       (sit-for 1))))
	      (make-local-variable 'process-terminate-hook)
	      (setq process-terminate-hook nil)
	      (setq need-not-save t)
	      (setq auto-save nil)
	      (setq kept-undo-information nil)
	      (set-default-directory dir buffer)
	      (erase-buffer buffer)
	      buffer))))
    (make-process cmd :environ environ :output buffer :exec-directory dir)
    (pop-to-buffer buffer t)
    buffer))

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