recentf / custom-file

[David Reitter <david.reitter@gmail.com>]

Can I suggest this or a similar small change to cus-edit.el in order  
to store the canonicalized version of custom-file in recentf-exclude?  
As it is now it doesn't work in cases where `custom-file'  is  
something like "~/.emacs-custom.el".




*** cus-edit.el	09 Nov 2006 16:48:43 +0000	1.312
--- cus-edit.el	13 Feb 2007 15:30:49 +0000	
***************
*** 4187,4197 ****
     (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)))
   	 (old-buffer (find-buffer-visiting filename)))
       (with-current-buffer (or old-buffer (find-file-noselect  
filename))
         (unless (eq major-mode 'emacs-lisp-mode)
--- 4187,4199 ----
     (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
! 			     (recentf-expand-file-name (custom-file)))
! 			    "\\'")
! 		    recentf-exclude)))
   	 (old-buffer (find-buffer-visiting filename)))
       (with-current-buffer (or old-buffer (find-file-noselect  
filename))
         (unless (eq major-mode 'emacs-lisp-mode)