Re: [david.reitter@gmail.com: recentf: "Select coding system" on quit]

[David Ponce <david.ponce@wanadoo.fr>]

 > Isn't inserting a ^L at the proper place the canonical solution?

Yes you're right.  Following is a new patch.

Thanks!
David

Index: recentf.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/recentf.el,v
retrieving revision 1.35
diff -c -r1.35 recentf.el
*** recentf.el	23 Mar 2005 07:20:48 -0000	1.35
--- recentf.el	21 Apr 2005 17:08:50 -0000
***************
*** 1137,1142 ****
--- 1137,1148 ----
     ";;; Automatically generated by `recentf' on %s.\n"
     "Header to be written into the `recentf-save-file'.")

+ (defconst recentf-save-file-coding-system
+   (if (coding-system-p 'utf-8-emacs)
+       'utf-8-emacs
+     'emacs-mule)
+   "Coding system of the file `recentf-save-file'.")
+
   (defun recentf-save-list ()
     "Save the recent list.
   Write data into the file specified by `recentf-save-file'."
***************
*** 1144,1152 ****
--- 1150,1162 ----
     (condition-case error
         (with-temp-buffer
   	(erase-buffer)
+ 	(set-buffer-file-coding-system recentf-save-file-coding-system)
   	(insert (format recentf-save-file-header (current-time-string)))
   	(recentf-dump-variable 'recentf-list recentf-max-saved-items)
   	(recentf-dump-variable 'recentf-filter-changer-state)
+ 	(insert "\n\f\n;;; Local Variables:\n"
+ 		(format ";;; coding: %s\n" recentf-save-file-coding-system)
+ 		";;; End:\n")
   	(write-file (expand-file-name recentf-save-file))
   	nil)
       (error
***************
*** 1207,1212 ****
   (provide 'recentf)

   (run-hooks 'recentf-load-hook)
!
   ;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
   ;;; recentf.el ends here
--- 1217,1222 ----
   (provide 'recentf)

   (run-hooks 'recentf-load-hook)
! \f
   ;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
   ;;; recentf.el ends here