[mew-dist 19758] Re: DISPLAY env with -nw

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazumasa Utashiro <utashiro at example.com> さん曰く
Subject: [mew-dist 19757] DISPLAY env with -nw
Message-ID: <20011204.185354.74655632.utashiro at example.com>
Date: Tue, 04 Dec 2001 18:53:54 +0900 (JST)

> 何年か前からイメージの添付ファイルが見えなくなって、なんでかなあと悩み
> つつ手作業で見たたんですが、やっとわかりました。

きっと、一年半ぐらい前だとおもいます :-)

> (defun mew-start-process-disp (name buffer program &rest program-args)
>
> の中の
> 
>     (setenv "DISPLAY" disp)
> 
> をコメントアウトしたら見えるようになったんだけど、これ、何のためにやっ
> てるんでしょう?

Subject: [Mew-dist 12752] make-frame-on-display
From: KOIE Hidetaka (鯉江英隆) <hide at example.com>
Date: Fri, 7 Apr 2000 09:02:26 +0900
Message-Id: <00Apr7.091252jst.29571 at example.com>

からはじまるスレッドでの結論なのですが、

> もちろん -nw 環境。

こうすればうまくまとまると思います。

(defun mew-start-process-disp (name buffer program &rest program-args)
  (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" (or disp (getenv "DISPLAY")))
    (apply (function start-process) name buffer program program-args)))

-- 
白井秀行 (mailto:shirai at example.com)