Commit c34a8a87 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(custom-save-all): Canonicalize custom-file before storing it in

recentf-exclude.
parent 95f0b603
2007-02-23 David Reitter <david.reitter@gmail.com>
* cus-edit.el (custom-save-all): Canonicalize custom-file before
storing it in recentf-exclude.
2007-02-23 Chong Yidong <cyd@stupidchicken.com>
 
* startup.el (fancy-splash-screens): Make cursor-type buffer-local
......@@ -4192,11 +4192,13 @@ if only the first line of the docstring is shown."))
(when (and (null custom-file) init-file-had-error)
(error "Cannot save customizations; init file was not fully loaded"))
(let* ((filename (custom-file))
(recentf-exclude (if recentf-mode
(cons (concat "\\`"
(regexp-quote (custom-file))
"\\'")
recentf-exclude)))
(recentf-exclude
(if recentf-mode
(cons (concat "\\`"
(regexp-quote
(recentf-expand-file-name (custom-file)))
"\\'")
recentf-exclude)))
(old-buffer (find-buffer-visiting filename)))
(with-current-buffer (let ((find-file-visit-truename t))
(or old-buffer (find-file-noselect filename)))
......
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