Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5cabd50e
Commit
5cabd50e
authored
Aug 12, 2005
by
Eli Zaretskii
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(custom-save-all, custom-save-delete): Bind recentf-exclude to exclude
custom-file.
parent
234d828a
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
19 additions
and
3 deletions
+19
-3
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/cus-edit.el
lisp/cus-edit.el
+14
-3
No files found.
lisp/ChangeLog
View file @
5cabd50e
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
...
...
lisp/cus-edit.el
View file @
5cabd50e
...
...
@@ -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
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment