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

[Kazumasa Utashiro]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 19758] Re: DISPLAY env with -nw
Date: Tue, 04 Dec 2001 19:04:37 +0900 (JST)

> こうすればうまくまとまると思います。
> 
> (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)))

lisp 的作法には詳しくないけど、せめて

    (if disp (setenv "DISPLAY" disp))

では?

--utashiro