diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2007-02-23 19:13:40 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2007-02-23 19:13:40 +0000 |
| commit | c34a8a87401584b5501580890def8a2133973951 (patch) | |
| tree | d8c19fe4be7980777d2063e0da01a58a30ad9a55 /lisp/cus-edit.el | |
| parent | 95f0b6030b02b3fd2f85ba693dbfcaa1478a56e3 (diff) | |
| download | emacs-c34a8a87401584b5501580890def8a2133973951.tar.gz | |
(custom-save-all): Canonicalize custom-file before storing it in
recentf-exclude.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ce429a40823..c49328ac40d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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))) |