Re: [CORE (21.5)] Package infrastructure overhaul.

I got this stuffed in the registry (by netinstaller I think): (getenv "EMACSPACKAGEPATH") "~\\.xemacs;C:\\Program Files\\XEmacs\\site-packages;C:\\Program Files\\XEmacs\\xemacs-packages" Changing like so (setenv "EMACSPACKAGEPATH" "C:\\Program Files\\XEmacs\\site-packages;C:\\Program Files\\XEmacs\\xemacs-packages;C:\\Program Files\\XEmacs\\mule-packages") makes package install work after this little patch: Index: package-admin.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/package-admin.el,v retrieving revision 1.21 diff -u -u -r1.21 package-admin.el --- package-admin.el 24 Mar 2003 16:30:56 -0000 1.21 +++ package-admin.el 30 Mar 2003 21:35:58 -0000 ＠＠ -172,12 +172,14 ＠＠ (let ((path-list (paths-decode-directory-path env-value 'drop-empties))) (cond ((eq type 'std) (while path-list - (if (equal (substring (car path-list) -16) "xemacs-packages/") + (if (equal (substring (car path-list) -16) + (format "xemacs-packages%c" directory-sep-char)) (setq top-dir (car path-list))) (setq path-list (cdr path-list)))) ((eq type 'mule) (while path-list - (if (equal (substring (car path-list) -14) "mule-packages/") + (if (equal (substring (car path-list) -14) + (format "mule-packages%c" directory-sep-char)) (setq top-dir (car path-list))) (setq path-list (cdr path-list))))))) ;; Wasn't in the environment, try `user-init-directory' if ＠＠ -197,12 +199,14 ＠＠ (packages-compute-package-locations user-init-directory))))) (cond ((eq type 'std) (while path-list - (if (equal (substring (car path-list) -16) "xemacs-packages/") + (if (equal (substring (car path-list) -16) + (format "xemacs-packages%c" directory-sep-char)) (setq top-dir (car path-list))) (setq path-list (cdr path-list)))) ((eq type 'mule) (while path-list - (if (equal (substring (car path-list) -14) "mule-packages/") + (if (equal (substring (car path-list) -14) + (format "mule-packages%c" directory-sep-char)) (setq top-dir (car path-list))) (setq path-list (cdr path-list))))))) ;; Now return either the directory or nil. SY> |--==> "APA" == Adrian Aichner <adrian(a)xemacs.org&gt; writes: >>> SY> code clean up => built-in transport (no EFS) => 3rd party SY> package support (site-packages) => DSO support. APA> Hi Steve, I like the changes to the download selection menus. SY> Thanks! APA> Here's some initial feedback: APA> Bad news first, APA> Trying to install mule-base in APA> "XEmacs 21.5 (beta11) \"cabbage\" [Lucid] (i586-pc-win32, Mule) of Sat APA> Mar 22 2003 on D5DC120J" APA> after first uninstalling an old instance and starting a new XEmacs, I get: APA> Signaling: (wrong-type-argument stringp nil) SY> I have this fixed in another workspace which is still in development. SY> Should have it in CVS late tonight. APA> Hi Steve, APA> with XEmacs 21.5 built from CVS as of today I get this, trying to APA> install mule-base. APA> I have this APA> configure-package-path APA> ("~\\.xemacs" "" "c:\\Program Files\\XEmacs\\site-packages" "c:\\Program Files\\XEmacs\\mule-packages" "c:\\Program Files\\XEmacs\\xemacs-packages") APA> Any idea? APA> Signaling: (args-out-of-range "~\\.xemacs\\" -14 nil) APA> package-admin-find-top-directory(mule) APA> package-admin-get-install-dir(mule-base nil) <32 lines deleted by Adrian Aichner> -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/