Mercurial > emacs

changeset 12964:16df4fd98d75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(recover-session-finish): Catch erorr in recover-file.
author Richard M. Stallman <rms@gnu.org>
date Mon, 28 Aug 1995 20:13:56 +0000
parents 337ba86981f5
children 4333dc5a142f
files lisp/files.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Mon Aug 28 15:15:28 1995 +0000
+++ b/lisp/files.el	Mon Aug 28 20:13:56 1995 +0000
@@ -2178,7 +2178,11 @@
 	  ;; or is empty if the buffer was not visiting a file.
 	  ;; The second line is the auto-save file name.
 	  (map-y-or-n-p  "Recover %s? "
-			 (lambda (file) (save-excursion (recover-file file)))
+			 (lambda (file)
+			   (condition-case nil
+			       (save-excursion (recover-file file))
+			     (error 
+			      "Failed to recover `%s'" file)))
 			 (lambda ()
 			   (if (eobp)
 			       nil