Mercurial > emacs
comparison lisp/cus-edit.el @ 19822:b5c12a2d1c26
*** empty log message ***
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Mon, 08 Sep 1997 19:17:57 +0000 |
| parents | d5378da3dd73 |
| children | 0c1b4a44db76 |
comparison
equal
deleted
inserted
replaced
| 19821:40ce8607b883 | 19822:b5c12a2d1c26 |
|---|---|
| 2916 (widget-put widget :custom-state found))) | 2916 (widget-put widget :custom-state found))) |
| 2917 (custom-magic-reset widget)) | 2917 (custom-magic-reset widget)) |
| 2918 | 2918 |
| 2919 ;;; The `custom-save-all' Function. | 2919 ;;; The `custom-save-all' Function. |
| 2920 ;;;###autoload | 2920 ;;;###autoload |
| 2921 (defcustom custom-file (if (boundp 'emacs-user-extension-dir) | 2921 (defcustom custom-file nil |
| 2922 (concat "~" | |
| 2923 init-file-user | |
| 2924 emacs-user-extension-dir | |
| 2925 "options.el") | |
| 2926 (convert-standard-filename"~/.emacs")) | |
| 2927 "File used for storing customization information. | 2922 "File used for storing customization information. |
| 2928 If you change this from the default \"~/.emacs\" (or \"~/_emacs\" | 2923 The default is nil, which means to use your init file |
| 2929 on MS-DOS) you need to explicitly load that file for the settings | 2924 as specified by `user-init-file'. If you specify some other file, |
| 2930 to take effect." | 2925 you need to explicitly load that file for the settings to take effect." |
| 2931 :type 'file | 2926 :type '(choice (const :tag "Your Emacs init file" nil) file) |
| 2932 :group 'customize) | 2927 :group 'customize) |
| 2933 | 2928 |
| 2934 (defun custom-save-delete (symbol) | 2929 (defun custom-save-delete (symbol) |
| 2935 "Delete the call to SYMBOL form `custom-file'. | 2930 "Delete the call to SYMBOL form `custom-file'. |
| 2936 Leave point at the location of the call, or after the last expression." | 2931 Leave point at the location of the call, or after the last expression." |
| 2937 (set-buffer (find-file-noselect custom-file)) | 2932 (set-buffer (find-file-noselect (or custom-file user-init-file))) |
| 2938 (goto-char (point-min)) | 2933 (goto-char (point-min)) |
| 2939 (catch 'found | 2934 (catch 'found |
| 2940 (while t | 2935 (while t |
| 2941 (let ((sexp (condition-case nil | 2936 (let ((sexp (condition-case nil |
| 2942 (read (current-buffer)) | 2937 (read (current-buffer)) |
| 3039 "Save all customizations in `custom-file'." | 3034 "Save all customizations in `custom-file'." |
| 3040 (let ((inhibit-read-only t)) | 3035 (let ((inhibit-read-only t)) |
| 3041 (custom-save-variables) | 3036 (custom-save-variables) |
| 3042 (custom-save-faces) | 3037 (custom-save-faces) |
| 3043 (save-excursion | 3038 (save-excursion |
| 3044 (set-buffer (find-file-noselect custom-file)) | 3039 (set-buffer (find-file-noselect (or custom-file user-init-file))) |
| 3045 (save-buffer)))) | 3040 (save-buffer)))) |
| 3046 | 3041 |
| 3047 ;;; The Customize Menu. | 3042 ;;; The Customize Menu. |
| 3048 | 3043 |
| 3049 ;;; Menu support | 3044 ;;; Menu support |