[Mew-dist 12893] RE: make-frame-on-display

[KOIE Hidetaka ( 鯉江英隆 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 12880] Re: make-frame-on-display
Date: Tue, 18 Apr 2000 18:01:54 +0900

  | -display オプションを指定して上げる方がよくありませんか？

しょうもない理由ですが
-displayオプションが常に使えるとは限らないので
DISPLAY環境変数の方が安心です。

こんなかんじでラッピングしたらいいんじゃないかと思います。
(defun myexec (cmd)
  (let ((disp (if (and mew-xemacs-p (eq (device-type) 'x))
                  (device-connection)
                (cdr (assq 'display (frame-parameters)))))
        (process-environment (copy-sequence process-environment)))
    (setenv "DISPLAY" disp)
    (shell-command cmd)
    ))
X window system以外の場合は考えてないです。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>