Reformatted.
[chise/xemacs-chise.git] / lisp / cus-file.el
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 \f
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     (if (or force-new
52             (not init-file)
53             (string= (file-name-directory init-file)
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