Mercurial > emacs
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