Installation trouble on Meadow2

[MIYOSHI Masanori]

三好と申します。

APEL を使って elisp をインストールする際に、現在開発中の Meadow2 
では具合が発生します。
APEL の方で、対策して頂けないでしょうか?

(1) 現象

下記のように、Meadow1 では正しくインストール先が推定されるのに、
Meadow2 ではおかしくなってしまいます。

>>>>> [meadow-users-jp : No.4522] にて
>>>>> "西山" = Kazuhiro NISHIYAMA <zn ＠ mbf.nifty.com> さんは書きました:
西山> Meadow 1.99a6でWanderlustのwl-2_10枝を入れるときに
西山> LISPDIRを指定しないとc:/share以下に入ってしまうのですが、
西山> デフォルトで1.15と同じ LISPDIR=c:/Meadow/1.99a6/site-lisp に
西山> 入るようにならないでしょうか?

(2) 原因

ちょっと調べたところ、APEL の install.el に問題があることがわかり
ました。

APEL の install.el:
> ;; install to shared directory (maybe "/usr/local")
> (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
>       (expand-file-name "../../.." exec-directory)
>     (expand-file-name "../../../.." data-directory)))

ここで、Meadow2 の場合は、
(string= system-configuration-options "NT") 
  => nil
となる(*)ため、install-prefix が予期しないものになってしまいます。

* Meadow2 の system-configuration-options は、"--with-msvc
  (12.00) --no-opt" や "--with-gcc (3.2)" となります。Meadow1 では 
  "NT" に固定です。

(3) 対策

ここは、system-configuration-options ではなくて、下記のように 
system-type で判定すればいいと思うのですが、問題あるでしょうか?

;; APEL としての制約条件が良く分かっていないので、変なことをして
;; いるかもしれません。


最近の NTEmacs も Meadow とディレクトリ構成が同なので、この変更で 
NTEmacs も救われると思います。

--- ./install.el.orig	2002-10-03 21:21:38.000000000 +0900
+++ ./install.el	2003-05-12 20:58:36.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
+ 	  (eq system-type 'windows-nt)) ; for Meadow and NTEmacs
       (expand-file-name "../../.." exec-directory)
     (expand-file-name "../../../.." data-directory)))

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