[debian-users:05954] Re: How do I make Emacsen understand "Environment" ?

[tsuchiya@xxxxxxxxxxxxxxxxxxxxxxx]

土屋です。


1998年05月18日にRyuichi Arafuneさんは書きました。
 > 具体的には
 >  $Displayによってフォントを変えたい
 > のです．

こんなんでどうでしょう?

(let ((disp (getenv "DISPLAY")))
  (cond
   ((string= disp "foo:0.0")
    ;; foo:0.0 の場合の設定
    )
   ((string= disp "bar:0.0")
    ;; bar:0.0 の場合の設定
    )
   (t
    ;; default の設定
    )))

============================================================
=  土屋 雅稔  ( Tsuchiya Masatoshi )                       =
=    E-mail : tsuchiya@xxxxxxxxxxxxxxxxxxxxxxx             =
=    http://www-nagao.kuee.kyoto-u.ac.jp/member/tsuchiya/  =
============================================================