(recentf-dialog-goto-first): Fix missing error condition.

(recentf-edit-list, recentf-open-files): Signal an error when
there is no recent file.

diff --git a/lisp/recentf.el b/lisp/recentf.el
index d92bc92f6ee486874ab5d69dda6ac86c5a25862a..1106fea18b615637ca4e0e0494a6cf1cac693893 100644 (file)
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -1038,7 +1038,8 @@ Go to the beginning of buffer if not found."
           (if (eq widget-type (widget-type (widget-at (point))))
               (setq done t)
             (widget-move 1))))
-    (goto-char (point-min))))
+    (error
+     (goto-char (point-min)))))
 
 (defvar recentf-dialog-mode-map
   (let ((km (copy-keymap recentf--shortcuts-keymap)))
@@ -1100,6 +1101,8 @@ IGNORE arguments."
 (defun recentf-edit-list ()
   "Show a dialog to delete selected files from the recent list."
   (interactive)
+  (unless recentf-list
+    (error "The list of recent files is empty"))
   (recentf-dialog (format "*%s - Edit list*" recentf-menu-title)
     (set (make-local-variable 'recentf-edit-list) nil)
     (widget-insert
@@ -1194,6 +1197,8 @@ files to choose from.  It defaults to the whole recent list.
 If optional argument BUFFER-NAME is non-nil, it is a buffer name to
 use for the dialog.  It defaults to \"*`recentf-menu-title'*\"."
   (interactive)
+  (unless (or files recentf-list)
+    (error "There is no recent file to open"))
   (recentf-dialog (or buffer-name (format "*%s*" recentf-menu-title))
     (widget-insert "Click on a file"
                    (if recentf-show-file-shortcuts-flag