procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(custom-file): Fix last change.

Browse source
This commit is contained in:
Eli Zaretskii 2001-05-28 07:13:32 +00:00
parent d686d354c1
commit 558771ba0d
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/cus-edit.el
View file

@ -3447,15 +3447,21 @@ to the new custom file. This will preserve your existing customizations."
(defun custom-file ()
"Return the file name for saving customizations."
(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.
(error "Saving settings when running -q would overwrite existing settings")
(setq custom-file (or custom-file user-init-file))))
(setq custom-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.
(error "Saving settings from \"emacs -q\" would overwrite existing customizations"))
(setq user-init-file default-init-file))
user-init-file))))
(defun custom-save-delete (symbol)
"Visit `custom-file' and delete all calls to SYMBOL from it.