Re: [MD:6398] re-sync up with Emacs 21.4 and cleanups.

[Shuichi KITAGUCHI <kit@xxxxxxxxxxx>]

三好> バージョン番号をつけた場合でも site-lisp を参照するように、下記の
三好> 修正を 2.10-dev と 2.20-dev に加えました。

三好> これでも問題があるようでしたら教えてください。

三好> ;; いろんなバージョンの Meadow や NTEmacs をインストールして使って
三好> ;; いるので、バージョン番号が使えないとちょっと面倒なのです。

三好> --- install.c	(revision 3658)
三好> +++ install.c	(working copy)
三好> @@ -327,8 +327,8 @@
三好>      strcpy(main_top_root, main_root);
三好>  
三好>    hkey = create_key(HKEY_LOCAL_MACHINE, tmpstr);
三好> -  sprintf(buffer, "%ssite-lisp;%spackages\\lisp;%slisp;%sleim",
三好> -	  main_root, main_root, main_root, main_root);
三好> +  sprintf(buffer, "%ssite-lisp;%ssite-lisp;%spackages\\lisp;%slisp;%sleim",
三好> +	  main_root, main_top_root, main_root, main_root, main_root);
三好>    set_value(hkey,      "EMACSLOADPATH", buffer);
三好>    set_value_path(hkey, "EMACSDATA",     main_root, "etc");
三好>    set_value_path(hkey, "EMACSPATH",     main_root, "bin");

この修正だと、Meadowを "C:\Meadow2.1" にインストールすると、EMACSLOADPATH
に "C:\site-lisp" というパスが含まれてしまうので、いまいちかなと思います。

ディスク容量を食ってしまいますけど、インストール先ディレクトリを丸ごと
変更する、というあたりで対処するしかないと思います(私はそうして2.00と
2.10を入れてます)。


あと、よく見たらsrc/w32.cにも同じことがあって、

--- w32.c	(revision 3661)
+++ w32.c	(working copy)
@@ -984,7 +984,7 @@
       {"HOME", "C:/"},
       {"PRELOAD_WINSOCK", NULL},
       {"emacs_dir", "C:/emacs"},
-      {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/../site-lisp;%emacs_dir%/packages/lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
+      {"EMACSLOADPATH", "%emacs_dir%/site-lisp;%emacs_dir%/packages/lisp;%emacs_dir%/lisp;%emacs_dir%/leim"},
       {"SHELL", "%emacs_dir%/bin/cmdproxy.exe"},
       {"EMACSDATA", "%emacs_dir%/etc"},
       {"EMACSPATH", "%emacs_dir%/bin"},

とした方がいいかなと思っています。


--
Shuichi Kitaguchi // kit@xxxxxxxx / ki@xxxxxxxxxxxxxx