Mercurial > emacs
diff lisp/cus-edit.el @ 37902:0b9965ee3ec4
(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 | 45147f063e6b |
children | 747d5805111c |
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.