Small recover-this-file improvement

* lisp/files.el (recover-this-file): Explicit error if not
visiting a file.  (Bug#23671)
This commit is contained in:
Glenn Morris 2017-03-01 18:29:48 -05:00
parent 79abec2fee
commit 8244357283

View file

@ -5838,6 +5838,8 @@ an auto-save file."
(defun recover-this-file ()
"Recover the visited file--get contents from its last auto-save file."
(interactive)
(or buffer-file-name
(user-error "This buffer is not visiting a file"))
(recover-file buffer-file-name))
(defun recover-file (file)