141 |
(require 'cus-face) |
(require 'cus-face) |
142 |
(require 'wid-edit) |
(require 'wid-edit) |
143 |
(eval-when-compile |
(eval-when-compile |
144 |
(defvar custom-versions-load-alist)) ; from cus-load |
(defvar custom-versions-load-alist) ; from cus-load |
145 |
|
(defvar recentf-exclude)) ; from recentf.el |
146 |
|
|
147 |
(condition-case nil |
(condition-case nil |
148 |
(require 'cus-load) |
(require 'cus-load) |
3902 |
"Visit `custom-file' and delete all calls to SYMBOL from it. |
"Visit `custom-file' and delete all calls to SYMBOL from it. |
3903 |
Leave point at the old location of the first such call, |
Leave point at the old location of the first such call, |
3904 |
or (if there were none) at the end of the buffer." |
or (if there were none) at the end of the buffer." |
3905 |
(let ((default-major-mode 'emacs-lisp-mode)) |
(let ((default-major-mode 'emacs-lisp-mode) |
3906 |
|
(recentf-exclude (if recentf-mode |
3907 |
|
(cons (concat "\\`" |
3908 |
|
(regexp-quote (custom-file)) |
3909 |
|
"\\'") |
3910 |
|
recentf-exclude)))) |
3911 |
(set-buffer (find-file-noselect (custom-file)))) |
(set-buffer (find-file-noselect (custom-file)))) |
3912 |
(goto-char (point-min)) |
(goto-char (point-min)) |
3913 |
;; Skip all whitespace and comments. |
;; Skip all whitespace and comments. |
4136 |
(custom-save-variables) |
(custom-save-variables) |
4137 |
(custom-save-faces) |
(custom-save-faces) |
4138 |
(save-excursion |
(save-excursion |
4139 |
(let ((default-major-mode nil)) |
(let ((default-major-mode nil) |
4140 |
|
(recentf-exclude (if recentf-mode |
4141 |
|
(cons (concat "\\`" |
4142 |
|
(regexp-quote (custom-file)) |
4143 |
|
"\\'") |
4144 |
|
recentf-exclude)))) |
4145 |
(set-buffer (find-file-noselect (custom-file)))) |
(set-buffer (find-file-noselect (custom-file)))) |
4146 |
(let ((file-precious-flag t)) |
(let ((file-precious-flag t)) |
4147 |
(save-buffer))))) |
(save-buffer))))) |