Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
83291:bbf359ec4a59 83292:ad07ff6e4555
1135 1135
1136 (defconst recentf-save-file-header 1136 (defconst recentf-save-file-header
1137 ";;; Automatically generated by `recentf' on %s.\n" 1137 ";;; Automatically generated by `recentf' on %s.\n"
1138 "Header to be written into the `recentf-save-file'.") 1138 "Header to be written into the `recentf-save-file'.")
1139 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
1140 (defun recentf-save-list () 1146 (defun recentf-save-list ()
1141 "Save the recent list. 1147 "Save the recent list.
1142 Write data into the file specified by `recentf-save-file'." 1148 Write data into the file specified by `recentf-save-file'."
1143 (interactive) 1149 (interactive)
1144 (condition-case error 1150 (condition-case error
1145 (with-temp-buffer 1151 (with-temp-buffer
1146 (erase-buffer) 1152 (erase-buffer)
1153 (set-buffer-file-coding-system recentf-save-file-coding-system)
1147 (insert (format recentf-save-file-header (current-time-string))) 1154 (insert (format recentf-save-file-header (current-time-string)))
1148 (recentf-dump-variable 'recentf-list recentf-max-saved-items) 1155 (recentf-dump-variable 'recentf-list recentf-max-saved-items)
1149 (recentf-dump-variable 'recentf-filter-changer-state) 1156 (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")
1150 (write-file (expand-file-name recentf-save-file)) 1160 (write-file (expand-file-name recentf-save-file))
1151 nil) 1161 nil)
1152 (error 1162 (error
1153 (warn "recentf mode: %s" (error-message-string error))))) 1163 (warn "recentf mode: %s" (error-message-string error)))))
1154 1164
1205 recentf-mode) 1215 recentf-mode)
1206 1216
1207 (provide 'recentf) 1217 (provide 'recentf)
1208 1218
1209 (run-hooks 'recentf-load-hook) 1219 (run-hooks 'recentf-load-hook)
1210 1220
1211 ;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a 1221 ;;; arch-tag: 78f1eec9-0d16-4d19-a4eb-2e4529edb62a
1212 ;;; recentf.el ends here 1222 ;;; recentf.el ends here