Mercurial > emacs
diff lisp/recentf.el @ 55012:13ef2f084366
(recentf-save-list): Catch and warn about errors.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Apr 2004 20:54:53 +0000 |
| parents | e8824c4f5f7e |
| children | ffd927e57237 30dd490f06f2 4c90ffeb71c5 |
line wrap: on
line diff
--- 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.