mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
(recentf-save-list): Encode the file by
recentf-save-file-coding-system and add coding: tag.
This commit is contained in:
Kenichi Handa 2005-04-22 05:38:29 +00:00
parent 230e1e8026
commit 8dde0e95d4
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/recentf.el
View File

@ -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 \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)
;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
;;; recentf.el ends here