changeset 67589:afb90762aa99

(recentf-dialog-goto-first): Fix missing error condition. (recentf-edit-list, recentf-open-files): Signal an error when there is no recent file.
author David Ponce <david@dponce.com>
date Thu, 15 Dec 2005 20:23:46 +0000
parents 66a65f2235c2
children daf29d363da6
files lisp/recentf.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/recentf.el	Thu Dec 15 20:23:19 2005 +0000
+++ b/lisp/recentf.el	Thu Dec 15 20:23:46 2005 +0000
@@ -1038,7 +1038,8 @@
           (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 @@
 (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 @@
 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