[MD:1181]normal-top-level-add-subdirs-to-load-path

[小関 吉則 (KOSEKI Yoshinori) <kose@xxxxxxxxxxxxxxxxxx>]

>>>>> In [meadow-develop : No.1160] 
>>>>> “市川” = Tatsuya (Tim) Ichikawa <ichikawa@xxxxxxxxxxxxx>さん
市川>    subdirs.el が

市川> (if (fboundp 'normal-top-level-add-subdirs-to-load-path)
市川>     (normal-top-level-add-subdirs-to-load-path))

市川>   でなく、

市川> (normal-top-level-add-to-load-path
市川>  '(
市川>    "apel"
市川>    "flim"
市川>    "semi"
市川>    "gnus"
市川>    "misc"
市川>    "bitmap"
市川>    "elips"
市川>    "bbdb"
市川>    "mailcrypt"
市川>    "leim"
市川>    "pcl-cvs"
市川>    "elib"
市川>    "ps-print"
市川>    "w3"
市川>    "mailcrypt"
市川>    ))

市川>   と書かないと例えば site-lisp/apel を load-path に加えてくれません。

Emacs20.3.6 以降の startup.el の
normal-top-level-add-subdirs-to-load-path では
inode を見て load-path に追加するかどうか判断しているようで
す。

Meadow の場合

(nthcdr 10 (file-attributes "h:/Meadow/site-lisp"))
(0 30675305)

(nthcdr 10 (file-attributes "h:/Meadow/site-lisp/apel"))
(0 30675305)

(nthcdr 10 (file-attributes "h:/Meadow/site-lisp/bbdb"))
(0 30675305)

なので追加しないようなのです。

NT Emacs でも同様なのでしょうか? (未確認)

これは file-attributes の方を修正すべきなのか、それとも startup.el の
normal-top-level-add-subdirs-to-load-path を 
(memq system-type '(ms-dos windows-nt)) のような場合分けを追
加すべきなのでしょうか?

        *       *       *

でも APEL/FLIM/SEMI/Semi-gnus を入れかえないで素のままの
Meadow 1.04 alpha 1 だとちゃんと subdirectory を

>>>>> In [meadow-develop : No.1180] 
>>>>> “Abe” = Yasushi Abe <abe@xxxxxxxxxxxxxxx>さん
Abe> 話題になっていたsubdirs.elですが
Abe> > (if (fboundp 'normal-top-level-add-subdirs-to-load-path)
Abe> >     (normal-top-level-add-subdirs-to-load-path))
Abe> で、問題ないようです。

のように load-path に追加してくれるようなのです。
こちらは追いかけていません。
--
こせき @ Emacs のページ作成中
http://www.NetLaputa.ne.jp/~kose/Emacs/
kose@xxxxxxxxxxxxxxxxxx