# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1082494493 0
# Node ID 13ef2f084366c8f386801f07b95d2684af33afb3
# Parent  ebcf4edbc7f0ce78564ce2574a105fcb2d023959
(recentf-save-list): Catch and warn about errors.

diff -r ebcf4edbc7f0 -r 13ef2f084366 lisp/recentf.el
--- a/lisp/recentf.el	Tue Apr 20 20:54:00 2004 +0000
+++ b/lisp/recentf.el	Tue Apr 20 20:54:53 2004 +0000
@@ -1137,13 +1137,16 @@
   "Save the recent list.
 Write data into the file specified by `recentf-save-file'."
   (interactive)
-  (with-temp-buffer
-    (erase-buffer)
-    (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)
-    (write-file (expand-file-name recentf-save-file))
-    nil))
+  (condition-case error
+      (with-temp-buffer
+	(erase-buffer)
+	(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)
+	(write-file (expand-file-name recentf-save-file))
+	nil)
+    (error
+     (warn "recentf mode: %s" (error-message-string error)))))
 
 (defun recentf-load-list ()
   "Load a previously saved recent list.