# HG changeset patch
# User Per Abrahamsen <abraham@dina.kvl.dk>
# Date 873746277 0
# Node ID b5c12a2d1c26182bc4b21509c78941de0c6c4f32
# Parent  40ce8607b883d468ef661995fc802207fd7451cd
*** empty log message ***

diff -r 40ce8607b883 -r b5c12a2d1c26 lisp/cus-edit.el
--- 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.