Mercurial > emacs

diff lisp/recentf.el @ 83292:ad07ff6e4555

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 67, 270-278) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-270 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-271 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-272 src/xdisp.c (dump_glyph_row): Don't display overlay_arrow_p field. * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-273 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-274 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-275 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-276 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-277 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-278 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-67 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-332
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 25 Apr 2005 11:49:38 +0000
parents 26c9034f3533 34f8bb98e444
children 6aee1e9b0bd7
line wrap: on
line diff
--- a/lisp/recentf.el	Mon Apr 25 11:47:55 2005 +0000
+++ b/lisp/recentf.el	Mon Apr 25 11:49:38 2005 +0000
@@ -1137,6 +1137,12 @@
   ";;; 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 @@
   (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,6 +1217,6 @@
 (provide 'recentf)
 
 (run-hooks 'recentf-load-hook)
-
+
 ;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
 ;;; recentf.el ends here