Mercurial > hg > xemacs-beta

comparison lisp/cus-file.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents
children
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
1 ;;; cus-file.el --- Manage location of the customize init file
2
3 ;; Copyright (C) 2000 by Free Software Foundation, Inc.
4
5 ;; Author: Mike Sperber <mike@xemacs.org>
6 ;; Keywords: internal
7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
24
25 ;;; Synched up with: Not in FSF
26
27 ;;; Commentary:
28
29 ;; This file manages the location of the custom init file without
30 ;; loading all of the custom code itself.
31
32
33 ;;; Code:
34 (provide 'cus-file)
35
36 ;;;###autoload
37 (defconst custom-file-base "custom.el"
38 "Base of file name for storing customization information.")
39
40 ;;;###autoload
41 (defvar custom-file nil
42 "File used for storing customization information.
43 If you change this from the default you need to
44 explicitly load that file for the settings to take effect.")
45
46 ;;;###autoload
47 (defun make-custom-file-name (init-file &optional force-new)
48 "Construct the default custom file name from the init file name.
49 If FORCE-NEW is non-nil, force post-migration location."
50 (let* ((init-file (or init-file user-init-file))
51 (init-file-directory (file-name-directory init-file)))
52 (if (or force-new
53 (string= init-file-directory
54 (expand-file-name
55 (file-name-as-directory user-init-directory))))
56 (expand-file-name custom-file-base user-init-directory)
57 init-file)))
58
59 ;;; cus-file.el ends here