Installation trouble on Meadow2

[Katsumi Yamaoka]

反応が無いので、ちょっと出しゃばってみます。:)

>>>>> In [apel-ja : No.00794]
>>>>>	MIYOSHI Masanori <miyoshi ＠ boreas.dti.ne.jp> wrote:

三好さん> (3) 対策
三好さん> ここは、system-configuration-options ではなくて、下記のように
三好さん> system-type で判定すればいいと思うのですが、問題あるでしょうか?

問題があるかどうか判断できる材料を持ち合わせていないのですが、現
在の install-prefix の設計が *あえて* system-type を使っていない
のは、system-type では "NT" かどうかが判断できない system がある
と考えられませんか?

>  (defvar install-prefix
>    (if (or (<= emacs-major-version 18)
>  	  (featurep 'xemacs)
> -	  (and (boundp 'system-configuration-options) ; 19.29 or later
> -	       (string= system-configuration-options "NT"))) ; for Meadow
> + 	  (eq system-type 'windows-nt)) ; for Meadow and NTEmacs
>        (expand-file-name "../../.." exec-directory)
>      (expand-file-name "../../../.." data-directory)))

この改造の是非を確認できる人がいない場合、既存の設計も残しておく
というのではいかがでしょう?

--- install.el~	2002-10-03 12:21:38 +0000
+++ install.el	2003-05-14 08:37:48 +0000
@@ -147,7 +147,8 @@
   (if (or (<= emacs-major-version 18)
 	  (featurep 'xemacs)
 	  (and (boundp 'system-configuration-options) ; 19.29 or later
-	       (string= system-configuration-options "NT"))) ; for Meadow
+	       (string= system-configuration-options "NT")) ; for Meadow1
+	  (eq system-type 'windows-nt)) ; for Meadow2 and NTEmacs
       (expand-file-name "../../.." exec-directory)
     (expand-file-name "../../../.." data-directory)))
 
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>