carbon2-commit: Respect carbon conventions with packages, init file; prefer Unix init files.
16 years, 6 months
Aidan Kehoe
Aidan Kehoe
changeset: 4496:50032b8a0b6e5ecd2f24bcae6eee6f49162058ba
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sat Jun 07 23:17:10 2008 +0200
files: lisp/ChangeLog lisp/setup-paths.el lisp/startup.el
description:
Respect carbon conventions with packages, init file; prefer Unix init files.
2008-06-07 Aidan Kehoe <kehoea(a)parhasard.net>
* setup-paths.el (carbon-application-support-base):
New variable, set up to be a sensible default with Carbon
support.
(carbon-user-init-directory):
Ditto.
* startup.el (find-user-init-file):
If we're in a carbon build, prefer the Carbon-specific init
directory to the Unix init directory.
* startup.el (ask-about-user-init-file-migration-p):
If we're on a carbon build, note that when determining if init
file migration is relevant.
diff -r 69a3c4746f44612d0a533b1334cb546fcca96ddf -r 50032b8a0b6e5ecd2f24bcae6eee6f49162058ba lisp/ChangeLog
--- a/lisp/ChangeLog Sat May 24 09:57:12 2008 +0200
+++ b/lisp/ChangeLog Sat Jun 07 23:17:10 2008 +0200
＠＠ -1,3 +1,17 ＠＠ 2008-05-14 Stephen J. Turnbull <stephe
+2008-06-07 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * setup-paths.el (carbon-application-support-base):
+ New variable, set up to be a sensible default with Carbon
+ support.
+ (carbon-user-init-directory):
+ Ditto.
+ * startup.el (find-user-init-file):
+ If we're in a carbon build, prefer the Carbon-specific init
+ directory to the Unix init directory.
+ * startup.el (ask-about-user-init-file-migration-p):
+ If we're on a carbon build, note that when determining if init
+ file migration is relevant.
+
2008-05-14 Stephen J. Turnbull <stephen(a)xemacs.org>
* subr.el (add-to-list): Fix Aidan's last commit.
diff -r 69a3c4746f44612d0a533b1334cb546fcca96ddf -r 50032b8a0b6e5ecd2f24bcae6eee6f49162058ba lisp/setup-paths.el
--- a/lisp/setup-paths.el Sat May 24 09:57:12 2008 +0200
+++ b/lisp/setup-paths.el Sat Jun 07 23:17:10 2008 +0200
＠＠ -69,6 +69,15 ＠＠
("usr" "share" "info")))
"Directories appended to the end of the info path by default.")
+(defvar carbon-application-support-base
+ "Library/Application Support/XEmacs"
+ "Root under / and ~/ where Carbon XEmacs also looks for init, package files.")
+
+(defvar carbon-user-init-directory
+ (file-name-as-directory
+ (paths-construct-path (list (concat "~/" carbon-application-support-base
+ "/"))))
+ "Carbon user init directory, checked if `user-init-directory' not available.")
;;; Basic utility functions.
＠＠ -109,7 +118,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 +154,18 ＠＠ 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 (concat "/" carbon-application-support-base
+ "/XEmacs Packages/")))))
(installation-roots
(paths-filter root-p potential-installation-roots)))
(paths-uniq-append invocation-roots
diff -r 69a3c4746f44612d0a533b1334cb546fcca96ddf -r 50032b8a0b6e5ecd2f24bcae6eee6f49162058ba lisp/startup.el
--- a/lisp/startup.el Sat May 24 09:57:12 2008 +0200
+++ b/lisp/startup.el Sat Jun 07 23:17:10 2008 +0200
＠＠ -855,12 +855,17 ＠＠ the menubar)."
(if load-home-init-file
(find-user-home-directory-init-file home-directory)
(or (find-user-init-directory-init-file init-directory)
+ (and (featurep 'carbon)
+ (find-user-init-directory-init-file carbon-user-init-directory))
(find-user-home-directory-init-file home-directory))))
(defun ask-about-user-init-file-migration-p ()
"Check whether we want to ask the user if she wants to migrate the init file."
(and (not load-home-init-file)
(not (find-user-init-directory-init-file user-init-directory))
+ (not (and (featurep 'carbon)
+ (find-user-init-directory-init-file
+ carbon-user-init-directory)))
(stringp user-init-file)
(file-readable-p user-init-file)))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments
[PATCH] carbon2: Respect carbon conventions with packages, init file; prefer Unix init files.
16 years, 6 months
Aidan Kehoe
Aidan Kehoe
comparing with /Sources/xemacs-carbon2
searching for changes
changeset: 4496:50032b8a0b6e
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sat Jun 07 23:17:10 2008 +0200
summary: Respect carbon conventions with packages, init file; prefer Unix init files.
diff -r 69a3c4746f44 -r 50032b8a0b6e lisp/ChangeLog
--- a/lisp/ChangeLog Sat May 24 09:57:12 2008 +0200
+++ b/lisp/ChangeLog Sat Jun 07 23:17:10 2008 +0200
＠＠ -1,3 +1,17 ＠＠ 2008-05-14 Stephen J. Turnbull <stephe
+2008-06-07 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * setup-paths.el (carbon-application-support-base):
+ New variable, set up to be a sensible default with Carbon
+ support.
+ (carbon-user-init-directory):
+ Ditto.
+ * startup.el (find-user-init-file):
+ If we're in a carbon build, prefer the Carbon-specific init
+ directory to the Unix init directory.
+ * startup.el (ask-about-user-init-file-migration-p):
+ If we're on a carbon build, note that when determining if init
+ file migration is relevant.
+
2008-05-14 Stephen J. Turnbull <stephen(a)xemacs.org>
* subr.el (add-to-list): Fix Aidan's last commit.
diff -r 69a3c4746f44 -r 50032b8a0b6e lisp/setup-paths.el
--- a/lisp/setup-paths.el Sat May 24 09:57:12 2008 +0200
+++ b/lisp/setup-paths.el Sat Jun 07 23:17:10 2008 +0200
＠＠ -69,6 +69,15 ＠＠
("usr" "share" "info")))
"Directories appended to the end of the info path by default.")
+(defvar carbon-application-support-base
+ "Library/Application Support/XEmacs"
+ "Root under / and ~/ where Carbon XEmacs also looks for init, package files.")
+
+(defvar carbon-user-init-directory
+ (file-name-as-directory
+ (paths-construct-path (list (concat "~/" carbon-application-support-base
+ "/"))))
+ "Carbon user init directory, checked if `user-init-directory' not available.")
;;; Basic utility functions.
＠＠ -109,7 +118,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 +154,18 ＠＠ 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 (concat "/" carbon-application-support-base
+ "/XEmacs Packages/")))))
(installation-roots
(paths-filter root-p potential-installation-roots)))
(paths-uniq-append invocation-roots
diff -r 69a3c4746f44 -r 50032b8a0b6e lisp/startup.el
--- a/lisp/startup.el Sat May 24 09:57:12 2008 +0200
+++ b/lisp/startup.el Sat Jun 07 23:17:10 2008 +0200
＠＠ -855,12 +855,17 ＠＠ the menubar)."
(if load-home-init-file
(find-user-home-directory-init-file home-directory)
(or (find-user-init-directory-init-file init-directory)
+ (and (featurep 'carbon)
+ (find-user-init-directory-init-file carbon-user-init-directory))
(find-user-home-directory-init-file home-directory))))
(defun ask-about-user-init-file-migration-p ()
"Check whether we want to ask the user if she wants to migrate the init file."
(and (not load-home-init-file)
(not (find-user-init-directory-init-file user-init-directory))
+ (not (and (featurep 'carbon)
+ (find-user-init-directory-init-file
+ carbon-user-init-directory)))
(stringp user-init-file)
(file-readable-p user-init-file)))
--
¿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
- 1 participants
- 0 comments
commit: #'require hyper-apropos in #'describe-property-list, for hyper-apropos-face
16 years, 6 months
Aidan Kehoe
Aidan Kehoe
changeset: 4473:0204391fc17cfbae2117a6ba5babd84081ac3834
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Wed Jun 04 21:57:49 2008 +0200
files: lisp/ChangeLog lisp/descr-text.el
description:
#'require hyper-apropos in #'describe-property-list, for hyper-apropos-face
2008-06-04 Aidan Kehoe <kehoea(a)parhasard.net>
* descr-text.el (describe-property-list):
#'require hyper-apropos, since we use hyper-apropos-face
diff -r a99eb40f0b5b20b5883afae4908bf425998addbf -r 0204391fc17cfbae2117a6ba5babd84081ac3834 lisp/ChangeLog
--- a/lisp/ChangeLog Thu May 29 18:53:45 2008 +0200
+++ b/lisp/ChangeLog Wed Jun 04 21:57:49 2008 +0200
＠＠ -1,3 +1,8 ＠＠ 2008-05-25 Aidan Kehoe <kehoea＠parhasa
+2008-06-04 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * descr-text.el (describe-property-list):
+ #'require hyper-apropos, since we use hyper-apropos-face
+
2008-05-25 Aidan Kehoe <kehoea(a)parhasard.net>
* descr-text.el: New.
diff -r a99eb40f0b5b20b5883afae4908bf425998addbf -r 0204391fc17cfbae2117a6ba5babd84081ac3834 lisp/descr-text.el
--- a/lisp/descr-text.el Thu May 29 18:53:45 2008 +0200
+++ b/lisp/descr-text.el Wed Jun 04 21:57:49 2008 +0200
＠＠ -82,6 +82,7 ＠＠ into help buttons that call `describe-te
into help buttons that call `describe-text-category' or
`describe-face' when pushed."
;; Sort the properties by the size of their value.
+ (require 'hyper-apropos)
(dolist (elt (sort (let (ret)
(while properties
(push (list (pop properties) (pop properties)) ret))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
- 1 participants
- 0 comments