# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 990959757 0
# Node ID 0b9965ee3ec485e2f15ee625782efa50d9a4ecb5
# Parent  9447d044799604f9ef306a228a524756d6b3d9da
(custom-file): Don't assume we were invoked with -q unless ~/.emacs exists.

diff -r 9447d0447996 -r 0b9965ee3ec4 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Sun May 27 06:26:54 2001 +0000
+++ b/lisp/cus-edit.el	Sun May 27 10:35:57 2001 +0000
@@ -3447,7 +3447,10 @@
 
 (defun custom-file ()
   "Return the file name for saving customizations."
-  (if (null user-init-file)
+  (if (and (null user-init-file)
+	   (or (file-exists-p "~/.emacs")
+	       (and (memq system-type '(ms-dos windows-nt))
+		    (file-exists-p "~/_emacs"))))
       ;; Started with -q, i.e. the file containing Custom settings
       ;; hasn't been read.  Saving settings there would overwrite
       ;; other settings.