[Emacs-diffs] Changes to emacs/lisp/recentf.el

[Kenichi Handa]

Index: emacs/lisp/recentf.el
diff -c emacs/lisp/recentf.el:1.35 emacs/lisp/recentf.el:1.36
*** emacs/lisp/recentf.el:1.35  Wed Mar 23 07:20:48 2005
--- emacs/lisp/recentf.el       Fri Apr 22 05:38:29 2005
***************
*** 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\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)
! 
  ;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
  ;;; recentf.el ends here