Mercurial > emacs
changeset 19822:b5c12a2d1c26
*** empty log message ***
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Mon, 08 Sep 1997 19:17:57 +0000 |
| parents | 40ce8607b883 |
| children | 0c1b4a44db76 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 7 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Mon Sep 08 18:26:41 1997 +0000 +++ b/lisp/cus-edit.el Mon Sep 08 19:17:57 1997 +0000 @@ -2918,23 +2918,18 @@ ;;; The `custom-save-all' Function. ;;;###autoload -(defcustom custom-file (if (boundp 'emacs-user-extension-dir) - (concat "~" - init-file-user - emacs-user-extension-dir - "options.el") - (convert-standard-filename"~/.emacs")) +(defcustom custom-file nil "File used for storing customization information. -If you change this from the default \"~/.emacs\" (or \"~/_emacs\" -on MS-DOS) you need to explicitly load that file for the settings -to take effect." - :type 'file +The default is nil, which means to use your init file +as specified by `user-init-file'. If you specify some other file, +you need to explicitly load that file for the settings to take effect." + :type '(choice (const :tag "Your Emacs init file" nil) file) :group 'customize) (defun custom-save-delete (symbol) "Delete the call to SYMBOL form `custom-file'. Leave point at the location of the call, or after the last expression." - (set-buffer (find-file-noselect custom-file)) + (set-buffer (find-file-noselect (or custom-file user-init-file))) (goto-char (point-min)) (catch 'found (while t @@ -3041,7 +3036,7 @@ (custom-save-variables) (custom-save-faces) (save-excursion - (set-buffer (find-file-noselect custom-file)) + (set-buffer (find-file-noselect (or custom-file user-init-file))) (save-buffer)))) ;;; The Customize Menu.