mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(recentf-edit-list, recentf-open-files): Signal an error when
there is no recent file.
This commit is contained in:
David Ponce 2005-12-15 20:23:46 +00:00
parent d0ccae3ee4
commit a07efa9f7c
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/recentf.el
View file

@ -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