/[emacs]/emacs/lisp/recentf.el
ViewVC logotype

Diff of /emacs/lisp/recentf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by dpe, Wed Mar 23 07:20:48 2005 UTC revision 1.36 by handa, Fri Apr 22 05:38:29 2005 UTC
# Line 1137  default." Line 1137  default."
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'."
# Line 1144  Write data into the file specified by `r Line 1150  Write data into the file specified by `r
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
# Line 1207  that were operated on recently." Line 1217  that were operated on recently."
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

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26