Mercurial > emacs

changeset 37902:0b9965ee3ec4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-file): Don't assume we were invoked with -q unless ~/.emacs exists.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 27 May 2001 10:35:57 +0000
parents 9447d0447996
children a60b297f2679
files lisp/cus-edit.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.