[Mew-dist 12859] Re: make-frame-on-display

[Daiki Ueno]

>>>>> In [Mew-dist : No.12857] 
>>>>>	Takuro Horikawa (堀川 拓郎) wrote:

堀川> # lispを分かってないので、簡単に取る方法をしらないの。

> *** mew-summary.el~	Mon Mar 13 15:42:21 2000
> --- mew-summary.el	Fri Apr 14 18:52:48 2000
> ***************
> *** 964,969 ****
> --- 964,970 ----
>     "Execute an external command according to 
>   Content-Type:"
>     (interactive)
> +   (setenv "DISPLAY" (cdr (assoc 'display (frame-parameters))))

せめて assq にしましょう。

あと、XEmacs だと、直接は frame-parameters に反映されません。

(if (and mew-xemacs-p (eq (device-type) 'x))
    (device-connection)
  (cdr (assq 'display (frame-parameters))))

みたいな感じで取得するのが良いのでは。

P.S.

mew-unix.el には 

(defvar mew-prog-gif (if (and window-system mew-xemacs-p
                              (valid-image-instantiator-format-p 'gif))
...

などという部分が沢山あるんですが、こういう one shot な判定をやめませんか。

例えば、xemacs -nw で起動して M-x make-frame-on-display ":0.0"
などとした場合に、inline では画像が表示されなくなります。

;; むしろ、window-system による判定は全て捨てて、
;; specifier に任せるべきだと思うのですが。
-- 
Daiki Ueno