[Emacs-diffs] Changes to emacs/lisp/files.el

[Richard M. Stallman]

Index: emacs/lisp/files.el
diff -c emacs/lisp/files.el:1.600 emacs/lisp/files.el:1.601
*** emacs/lisp/files.el:1.600   Mon Jul 29 20:44:36 2002
--- emacs/lisp/files.el Thu Aug 15 16:08:24 2002
***************
*** 1406,1412 ****
                       (file-newer-than-file-p (or buffer-auto-save-file-name
                                                   (make-auto-save-file-name))
                                               buffer-file-name))
!                 (format "%s has auto save data; consider M-x recover-file"
                          (file-name-nondirectory buffer-file-name))
                (setq not-serious t)
                (if error "(New file)" nil)))
--- 1406,1412 ----
                       (file-newer-than-file-p (or buffer-auto-save-file-name
                                                   (make-auto-save-file-name))
                                               buffer-file-name))
!                 (format "%s has auto save data; consider M-x 
recover-this-file"
                          (file-name-nondirectory buffer-file-name))
                (setq not-serious t)
                (if error "(New file)" nil)))
***************
*** 3334,3339 ****
--- 3334,3344 ----
                 (kill-local-variable 'revert-buffer-internal-hook))
               (run-hooks 'revert-buffer-internal-hook))
             t)))))
+ 
+ (defun recover-this-file ()
+   "Recover the visited file--get contents from its last auto-save file."
+   (interactive)
+   (recover-file buffer-file-name))
  
  (defun recover-file (file)
    "Visit file FILE, but get contents from its last auto-save file."