Installation trouble on Meadow2

[MIYOSHI Masanori]

>>>>> [apel-ja : No.00803] にて
>>>>> "寺" = Yuuichi Teranishi <teranisi ＠ gohome.org> さんは書きました:
寺西> >    (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)))

寺西> system-configuration-options が "NT" ではなく、
寺西> system-type が windows-nt になる Emacs が Meadow2 かNTEmacs 
寺西> しかないなら、これでいいと思います。

おそらく、これは真であるとは思います。しかし、絶対に真であるとは
言い切れないのがつらいところです。^^;;;

安全策としては、以下のような変更はどうでしょうか?

Meadow ではバージョンに関係なく (featurep 'meadow) が t であるこ
とが保障されています。

;; NTEmacs を判定する方法は思いつきません。

--- ./install.el.orig	2002-10-03 21:21:38.000000000 +0900
+++ ./install.el	2003-05-20 23:28:15.000000000 +0900
@@ -146,8 +146,7 @@
 (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
+	  (featurep 'meadow)) ; for Meadow
       (expand-file-name "../../.." exec-directory)
     (expand-file-name "../../../.." data-directory)))


寺西> Mule for Win32 とかはどうなんでしょう…(もう現存してない？)

もう使ってる方はほとんどいないでしょうね。

system-configuration-options は未定義で、
system-type は 'windows-nt です。

--
三好 雅則 mailto:miyoshi ＠ boreas.dti.ne.jp
          http://www.boreas.dti.ne.jp/~miyoshi/ (Meadow2 のページ始めました)