# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1172257972 0
# Node ID 3556f653e301afea8678941d930e1ce97a0b5b2b
# Parent  a5085ef9cf22d920ac8bbdb98794d0ea5427586d
(custom-save-all): Canonicalize custom-file before storing it in
recentf-exclude.

diff -r a5085ef9cf22 -r 3556f653e301 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Fri Feb 23 19:02:28 2007 +0000
+++ b/lisp/cus-edit.el	Fri Feb 23 19:12:52 2007 +0000
@@ -4192,11 +4192,13 @@
   (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)))