Re: WanderlustのLISPDIR

[MIYOSHI Masanori <miyoshi@xxxxxxxxxxxxxxxx>]

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

ちょっと調べてみました。
どうやら APEL が原因のようです。

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" に固定です。


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

;; APEL としての制約条件が良く分かっていません。^^;;;


NTEmacs も Meadow とディレクトリ構成が同じはずだから、この変更で
NTEmacs も救われると思います。

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


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