| @@ -2001,28 +2001,28 @@ use for the buffer. It defaults to \"*recetf-show*\"." | |||||
| "Find file at point." | "Find file at point." | ||||
| (interactive) | (interactive) | ||||
| (let ((f (tabulated-list-get-id))) | (let ((f (tabulated-list-get-id))) | ||||
| (when f | |||||
| (recently-show-tabulated-close) | |||||
| (find-file f)))) | |||||
| (cl-assert f nil "No entry at point") | |||||
| (recently-show-tabulated-close) | |||||
| (find-file f))) | |||||
| (defun recently-show-tabulated-view-file () | (defun recently-show-tabulated-view-file () | ||||
| "View file at point." | "View file at point." | ||||
| (interactive) | (interactive) | ||||
| (let ((f (tabulated-list-get-id))) | (let ((f (tabulated-list-get-id))) | ||||
| (when f | |||||
| (recently-show-tabulated-close) | |||||
| (view-file f)))) | |||||
| (cl-assert f nil "No entry at point") | |||||
| (recently-show-tabulated-close) | |||||
| (view-file f))) | |||||
| (defun recently-show-tabulated-dired() | (defun recently-show-tabulated-dired() | ||||
| "Open dired buffer of directory at point." | "Open dired buffer of directory at point." | ||||
| (interactive) | (interactive) | ||||
| (let ((f (tabulated-list-get-id))) | (let ((f (tabulated-list-get-id))) | ||||
| (when f | |||||
| (recently-show-tabulated-close) | |||||
| (dired (if (file-directory-p f) | |||||
| f | |||||
| (or (file-name-directory f) | |||||
| ".")))))) | |||||
| (cl-assert f nil "No entry at point") | |||||
| (recently-show-tabulated-close) | |||||
| (dired (if (file-directory-p f) | |||||
| f | |||||
| (or (file-name-directory f) | |||||
| "."))))) | |||||
| (defvar recently-show-tabulated-mode-map | (defvar recently-show-tabulated-mode-map | ||||
| (let ((map (make-sparse-keymap))) | (let ((map (make-sparse-keymap))) | ||||