Mercurial > hg > xemacs-beta

comparison lisp/custom/cus-edit.el @ 201:eb5470882647 r20-3b27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b27
author cvs
date Mon, 13 Aug 2007 10:01:22 +0200
parents acd284d43ca1
children e45d5e7c476e
comparison
equal deleted inserted replaced
200:f0deb0c0e6be 201:eb5470882647
2928 :group 'customize) 2928 :group 'customize)
2929 2929
2930 (defun custom-save-delete (symbol) 2930 (defun custom-save-delete (symbol)
2931 "Delete the call to SYMBOL form `custom-file'. 2931 "Delete the call to SYMBOL form `custom-file'.
2932 Leave point at the location of the call, or after the last expression." 2932 Leave point at the location of the call, or after the last expression."
2933 (let ((find-file-hooks nil)) 2933 (let ((find-file-hooks nil)
2934 (auto-mode-alist nil))
2934 (set-buffer (find-file-noselect custom-file))) 2935 (set-buffer (find-file-noselect custom-file)))
2935 (goto-char (point-min)) 2936 (goto-char (point-min))
2936 (catch 'found 2937 (catch 'found
2937 (while t 2938 (while t
2938 (let ((sexp (condition-case nil 2939 (let ((sexp (condition-case nil
3035 (defun custom-save-all () 3036 (defun custom-save-all ()
3036 "Save all customizations in `custom-file'." 3037 "Save all customizations in `custom-file'."
3037 (let ((inhibit-read-only t)) 3038 (let ((inhibit-read-only t))
3038 (custom-save-variables) 3039 (custom-save-variables)
3039 (custom-save-faces) 3040 (custom-save-faces)
3040 (let ((find-file-hooks nil)) 3041 (let ((find-file-hooks nil)
3042 (auto-mode-alist))
3041 (with-current-buffer (find-file-noselect custom-file) 3043 (with-current-buffer (find-file-noselect custom-file)
3042 (save-buffer))))) 3044 (save-buffer)))))
3043 3045
3044 3046
3045 ;;; The Customize Menu. 3047 ;;; The Customize Menu.