mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

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

Browse Source 
custom-file.
This commit is contained in:
Eli Zaretskii 2005-08-12 11:18:43 +00:00
parent 234d828a06
commit 5cabd50e11
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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

17
lisp/cus-edit.el
View File

@ -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)))))