Commit 5cabd50e authored by Eli Zaretskii's avatar Eli Zaretskii

(custom-save-all, custom-save-delete): Bind recentf-exclude to exclude

custom-file.
parent 234d828a
2005-08-12 Eli Zaretskii <eliz@gnu.org>
* cus-edit.el (custom-save-all, custom-save-delete): Bind
recentf-exclude to exclude custom-file.
2005-08-12 Ehud Karni <ehud@unix.mvs.co.il>
* mail/rmailsum.el (rmail-summary-end-of-message): New command
......
......@@ -141,7 +141,8 @@
(require 'cus-face)
(require 'wid-edit)
(eval-when-compile
(defvar custom-versions-load-alist)) ; from cus-load
(defvar custom-versions-load-alist) ; from cus-load
(defvar recentf-exclude)) ; from recentf.el
(condition-case nil
(require 'cus-load)
......@@ -3901,7 +3902,12 @@ if only the first line of the docstring is shown."))
"Visit `custom-file' and delete all calls to SYMBOL from it.
Leave point at the old location of the first such call,
or (if there were none) at the end of the buffer."
(let ((default-major-mode 'emacs-lisp-mode))
(let ((default-major-mode 'emacs-lisp-mode)
(recentf-exclude (if recentf-mode
(cons (concat "\\`"
(regexp-quote (custom-file))
"\\'")
recentf-exclude))))
(set-buffer (find-file-noselect (custom-file))))
(goto-char (point-min))
;; Skip all whitespace and comments.
......@@ -4130,7 +4136,12 @@ or (if there were none) at the end of the buffer."
(custom-save-variables)
(custom-save-faces)
(save-excursion
(let ((default-major-mode nil))
(let ((default-major-mode nil)
(recentf-exclude (if recentf-mode
(cons (concat "\\`"
(regexp-quote (custom-file))
"\\'")
recentf-exclude))))
(set-buffer (find-file-noselect (custom-file))))
(let ((file-precious-flag t))
(save-buffer)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment