Mercurial > emacs

changeset 76100:3556f653e301

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-save-all): Canonicalize custom-file before storing it in recentf-exclude.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 23 Feb 2007 19:12:52 +0000
parents a5085ef9cf22
children 4a7eb3370da0
files lisp/cus-edit.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)))