(recentf-save-file-coding-system): New variable.

(recentf-save-list): Encode the file by
recentf-save-file-coding-system and add coding: tag.

diff --git a/lisp/recentf.el b/lisp/recentf.el
index 40a9204267e95f7a76fad7bb1b472c6709f7a53d..cf61b688eb51a45aa40b567f6dbe311bdd88eee9 100644 (file)
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -1137,6 +1137,12 @@ default."
   ";;; 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,9 +1150,13 @@ Write data into the file specified by `recentf-save-file'."
   (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,6 +1217,6 @@ that were operated on recently."
 (provide 'recentf)
 
 (run-hooks 'recentf-load-hook)
-
+\f
 ;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
 ;;; recentf.el ends here