1137 |
";;; Automatically generated by `recentf' on %s.\n" |
";;; Automatically generated by `recentf' on %s.\n" |
1138 |
"Header to be written into the `recentf-save-file'.") |
"Header to be written into the `recentf-save-file'.") |
1139 |
|
|
1140 |
|
(defconst recentf-save-file-coding-system |
1141 |
|
(if (coding-system-p 'utf-8-emacs) |
1142 |
|
'utf-8-emacs |
1143 |
|
'emacs-mule) |
1144 |
|
"Coding system of the file `recentf-save-file'.") |
1145 |
|
|
1146 |
(defun recentf-save-list () |
(defun recentf-save-list () |
1147 |
"Save the recent list. |
"Save the recent list. |
1148 |
Write data into the file specified by `recentf-save-file'." |
Write data into the file specified by `recentf-save-file'." |
1150 |
(condition-case error |
(condition-case error |
1151 |
(with-temp-buffer |
(with-temp-buffer |
1152 |
(erase-buffer) |
(erase-buffer) |
1153 |
|
(set-buffer-file-coding-system recentf-save-file-coding-system) |
1154 |
(insert (format recentf-save-file-header (current-time-string))) |
(insert (format recentf-save-file-header (current-time-string))) |
1155 |
(recentf-dump-variable 'recentf-list recentf-max-saved-items) |
(recentf-dump-variable 'recentf-list recentf-max-saved-items) |
1156 |
(recentf-dump-variable 'recentf-filter-changer-state) |
(recentf-dump-variable 'recentf-filter-changer-state) |
1157 |
|
(insert "\n\n;;; Local Variables:\n" |
1158 |
|
(format ";;; coding: %s\n" recentf-save-file-coding-system) |
1159 |
|
";;; End:\n") |
1160 |
(write-file (expand-file-name recentf-save-file)) |
(write-file (expand-file-name recentf-save-file)) |
1161 |
nil) |
nil) |
1162 |
(error |
(error |
1217 |
(provide 'recentf) |
(provide 'recentf) |
1218 |
|
|
1219 |
(run-hooks 'recentf-load-hook) |
(run-hooks 'recentf-load-hook) |
1220 |
|
|
1221 |
;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a |
;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a |
1222 |
;;; recentf.el ends here |
;;; recentf.el ends here |