[PATCH] Support Carbon-specific package paths.

Didier, you’ve mentioned wanting this a couple of times. The main thing I’m not sure about with this patch is whether it’s worth separating out the path into a variable on its own; probably not. Michael, is this a kosher approach to take? It *works* fine for me. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1210510621 -7200 # Node ID 8554671821720be9c0a2a73b0e8b269a17039c87 # Parent 781e065f28a76678ca3109b917ababef5150bd17 Support ~/Library/Application Support/XEmacs/XEmacs Packages under Carbon. 2008-05-11 Aidan Kehoe <kehoea(a)parhasard.net&gt; * setup-paths.el (paths-emacs-data-root-p): Also look for an xemacs-packages subdirectory under Carbon, don't limit this to Win32. (paths-find-emacs-roots): Check for possible package directories under ~/Library and /Library. diff -r 781e065f28a7 -r 855467182172 lisp/ChangeLog --- a/lisp/ChangeLog Sun May 11 14:29:05 2008 +0200 +++ b/lisp/ChangeLog Sun May 11 14:57:01 2008 +0200 ＠＠ -1,3 +1,12 ＠＠ 2008-01-20 Aidan Kehoe <kehoea＠parhasa +2008-05-11 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * setup-paths.el (paths-emacs-data-root-p): + Also look for an xemacs-packages subdirectory under Carbon, don't + limit this to Win32. + (paths-find-emacs-roots): + Check for possible package directories under ~/Library and + /Library. + 2008-01-20 Aidan Kehoe <kehoea(a)parhasard.net&gt; * startup.el (command-line-do-script): New. diff -r 781e065f28a7 -r 855467182172 lisp/setup-paths.el --- a/lisp/setup-paths.el Sun May 11 14:29:05 2008 +0200 +++ b/lisp/setup-paths.el Sun May 11 14:57:01 2008 +0200 ＠＠ -109,7 +109,7 ＠＠ installation roots." ;; searching for a package directory (and - (string-match "win32" system-configuration) + (or (string-match "win32" system-configuration) (featurep 'carbon)) (paths-file-readable-directory-p (paths-construct-path (list directory "xemacs-packages")))))) ＠＠ -145,13 +145,19 ＠＠ ROOT-P is a function that tests whether invocation-name root-p)) (potential-installation-roots - (paths-uniq-append - (and configure-exec-prefix-directory - (list (file-name-as-directory - configure-exec-prefix-directory))) - (and configure-prefix-directory - (list (file-name-as-directory - configure-prefix-directory))))) + (nconc + (paths-uniq-append + (and configure-exec-prefix-directory + (list (file-name-as-directory + configure-exec-prefix-directory))) + (and configure-prefix-directory + (list (file-name-as-directory + configure-prefix-directory)))) + (and + (featurep 'carbon) + (list (expand-file-name + "~/Library/Application Support/XEmacs/XEmacs Packages/") + "/Library/Application Support/XEmacs/XEmacs Packages/")))) (installation-roots (paths-filter root-p potential-installation-roots))) (paths-uniq-append invocation-roots -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches