Mercurial > emacs

comparison lisp/files.el @ 10712:5b86ce0cddb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(recover-file): Use ordinary `f' to read file name.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Feb 1995 06:29:31 +0000
parents 3499c4e1e82f
children 65676199c76b
comparison
equal deleted inserted replaced
10711:551defaf5ba1 10712:5b86ce0cddb5
1980 (run-hooks 'after-revert-hook) 1980 (run-hooks 'after-revert-hook)
1981 t))))) 1981 t)))))
1982 1982
1983 (defun recover-file (file) 1983 (defun recover-file (file)
1984 "Visit file FILE, but get contents from its last auto-save file." 1984 "Visit file FILE, but get contents from its last auto-save file."
1985 (interactive 1985 ;; Actually putting the file name in the minibuffer should be used
1986 (let ((prompt-file buffer-file-name) 1986 ;; only rarely.
1987 (file-name nil) 1987 ;; Not just because users often use the default.
1988 (file-dir nil)) 1988 (interactive "fRecover file: ")
1989 (and prompt-file
1990 (setq file-name (file-name-nondirectory prompt-file)
1991 file-dir (file-name-directory prompt-file)))
1992 (list (read-file-name "Recover file: "
1993 file-dir nil nil file-name))))
1994 (setq file (expand-file-name file)) 1989 (setq file (expand-file-name file))
1995 (if (auto-save-file-name-p (file-name-nondirectory file)) 1990 (if (auto-save-file-name-p (file-name-nondirectory file))
1996 (error "%s is an auto-save file" file)) 1991 (error "%s is an auto-save file" file))
1997 (let ((file-name (let ((buffer-file-name file)) 1992 (let ((file-name (let ((buffer-file-name file))
1998 (make-auto-save-file-name)))) 1993 (make-auto-save-file-name))))