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