diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-04-20 20:54:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-04-20 20:54:53 +0000 |
| commit | a0df7a328544a147e74011988cbdbe2d7930d27e (patch) | |
| tree | 791a0b3891cd431c6a028b7e50f41be3922e8cc7 | |
| parent | d08fd12f3afa17c87d998130b072e7e2f2c7b262 (diff) | |
| download | emacs-a0df7a328544a147e74011988cbdbe2d7930d27e.tar.gz | |
(recentf-save-list): Catch and warn about errors.
| -rw-r--r-- | lisp/recentf.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/recentf.el b/lisp/recentf.el index 7e379822457..efe4ebc63a4 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el @@ -1137,13 +1137,16 @@ default." "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. |