[xyzzy:04659] Re: process について

["Goddy" <gilead@xxxxxxxxxxxxxxx>]

服部さん、亀井さん、お返事ありがとうございます。

教わったとうりにやったつもりですが、
「*shell-reｔ*が衝突するからexportできない」とかいうメッセージが
出たので、しかたなく、shell.lのexportのところから*shell-ret*を
はずして、
下記のようにしたら、とりあえず動いてますが、そのままじゃ
マズイですよね？

(defun ug-post()
 (interactive)
 (require "shell")
 (ed::shell-mode)

(make-process *eshell* :output (selected-buffer))
  (process-send-string (buffer-process (selected-buffer))
         (concatenate 'string "cd c:\\" ed::*shell-ret*))
  (process-send-string (buffer-process (selected-buffer))
         (concatenate 'string "dir" ed::*shell-ret*))
  (process-send-string (buffer-process (selected-buffer))
         (concatenate 'string "exit" ed::*shell-ret*))
)