From 98cd6c18c57c031d8c0a0d13284375b8ccf60439 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 2 Aug 2011 17:46:07 +0200 Subject: [PATCH] When running under emacs -q, always refuse to save the customisations, even if the .emacs file doesn't exist. This makes it easier to reproduce testing runs under "emacs -Q" more reliably. --- lisp/ChangeLog | 4 ++++ lisp/cus-edit.el | 27 ++++++++------------------- 2 files changed, 12 insertions(+), 19 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 186508c639e..65530d5e5e2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2011-08-02 Lars Magne Ingebrigtsen + * cus-edit.el (custom-file): When running under emacs -q, always + refuse to save the customisations, even if the .emacs file doesn't + exist. + * info.el: Remove the `Info-beginning-of-buffer' function (bug#8325). diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index d443d6c160c..3e41a304f43 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4409,25 +4409,14 @@ if only the first line of the docstring is shown.")) (defun custom-file (&optional no-error) "Return the file name for saving customizations." - (let ((file - (or custom-file - (let ((user-init-file user-init-file) - (default-init-file - (if (eq system-type 'ms-dos) "~/_emacs" "~/.emacs"))) - (when (null user-init-file) - (if (or (file-exists-p default-init-file) - (and (eq system-type '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. - (if no-error - nil - (error "Saving settings from \"emacs -q\" would overwrite existing customizations")) - (setq user-init-file default-init-file))) - user-init-file)))) - (and file - (file-chase-links file)))) + (if (null user-init-file) + ;; Started with -q, i.e. the file containing Custom settings + ;; hasn't been read. Saving settings there won't make much + ;; sense. + (if no-error + nil + (error "Saving settings from \"emacs -q\" would overwrite existing customizations")) + (file-chase-links (or custom-file user-init-file)))) ;; If recentf-mode is non-nil, this is defined. (declare-function recentf-expand-file-name "recentf" (name)) -- 2.39.2