mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 03:40:47 -08:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Per Abrahamsen 1997-09-08 19:17:57 +00:00
parent 67053274b5
commit 1e4ed6df18
1 changed files with 7 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/cus-edit.el
View file

@ -2918,23 +2918,18 @@ Optional EVENT is the location for the menu."
;;; The `custom-save-all' Function. ;;; The `custom-save-all' Function.
;;;###autoload ;;;###autoload
(defcustom custom-file (if (boundp 'emacs-user-extension-dir) (defcustom custom-file nil
(concat "~"
init-file-user
emacs-user-extension-dir
"options.el")
(convert-standard-filename"~/.emacs"))
"File used for storing customization information. "File used for storing customization information.
If you change this from the default \"~/.emacs\" (or \"~/_emacs\" The default is nil, which means to use your init file
on MS-DOS) you need to explicitly load that file for the settings as specified by `user-init-file'. If you specify some other file,
to take effect." you need to explicitly load that file for the settings to take effect."
:type 'file :type '(choice (const :tag "Your Emacs init file" nil) file)
:group 'customize) :group 'customize)
(defun custom-save-delete (symbol) (defun custom-save-delete (symbol)
"Delete the call to SYMBOL form `custom-file'. "Delete the call to SYMBOL form `custom-file'.
Leave point at the location of the call, or after the last expression." Leave point at the location of the call, or after the last expression."
(set-buffer (find-file-noselect custom-file)) (set-buffer (find-file-noselect (or custom-file user-init-file)))
(goto-char (point-min)) (goto-char (point-min))
(catch 'found (catch 'found
(while t (while t
@ -3041,7 +3036,7 @@ Leave point at the location of the call, or after the last expression."
(custom-save-variables) (custom-save-variables)
(custom-save-faces) (custom-save-faces)
(save-excursion (save-excursion
(set-buffer (find-file-noselect custom-file)) (set-buffer (find-file-noselect (or custom-file user-init-file)))
(save-buffer)))) (save-buffer))))
;;; The Customize Menu. ;;; The Customize Menu.