From 0d1796093635de6321d4dc057ffe08c8ff97101f Mon Sep 17 00:00:00 2001
From: 10sr <8.slashes@gmail.com>
Date: Tue, 11 Dec 2018 15:06:09 +0900
Subject: [PATCH] Implement recently view-file

---
 emacs.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/emacs.el b/emacs.el
index 5b5fcd0..e54c7de 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2030,13 +2030,21 @@ use for the buffer. It defaults to \"*recetf-show*\"."
             ("Full Path" 0 t)])))
 
 (defun recently-show-tabulated-find-file ()
-  "Find-file in `recently-show-tabulated-mode'."
+  "Find file at point."
   (interactive)
   (let ((f (tabulated-list-get-id)))
     (when f
       (recently-show-tabulated-close)
       (find-file f))))
 
+(defun recently-show-tabulated-view-file ()
+  "View file at point."
+  (interactive)
+  (let ((f (tabulated-list-get-id)))
+    (when f
+      (recently-show-tabulated-close)
+      (view-file f))))
+
 (defvar recently-show-tabulated-mode-map
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)