Installation trouble on Meadow2

[Yuuichi Teranishi]

At Wed, 21 May 2003 10:17:40 +0900,
山岡さん wrote:
> 
> 三好さん> Meadow ではバージョンに関係なく (featurep 'meadow) が t であ
> 三好さん> ることが保障されています。
> 三好さん> ;; NTEmacs を判定する方法は思いつきません。
> 
> 論点は判定漏れ、すなわち、NT なのに NT だと判定されない場合があ
> ることですよね。

いえ、Meadow[12]/NTEmacs と同じディレクトリ構成になる Emacs を判定したい
というのがもともとのはなしで、

> 1. (and (boundp 'system-configuration-options) ; 19.29 or later
>         (string= system-configuration-options "NT"))) ; for Meadow
> 
> 2. (eq system-type 'windows-nt)
> 
> 3. (featurep 'meadow)
> 
> これらのどれかが真

の場合に、Meadow[12]/NTEmacs と違うディレクトリ構成なのに真になる
かもしれないのが問題かと。
(具体的には、Mule for Win32?)

よくわかってませんが、こんなんでどうでしょう。

(if (or (<= emacs-major-version 18)
	(featurep 'xemacs)
	(featurep 'meadow) ; for Meadow
	(and (eq system-type 'windows-nt) ; for NTEmacs
	     (> emacs-major-version 20)))
    (expand-file-name "../../.." exec-directory)
  (expand-file-name "../../../.." data-directory))

--
Yuuichi Teranishi (寺西裕一) <teranisi ＠ gohome.org>
GPG Public Key: http://www.gohome.org/gpg/teranisi.asc
"Living is easy with eyes closed, misunderstanding all you see..."