Add recently-show tabulated functions

emacs.el

@@ -2243,6 +2243,24 @@ use for the buffer. It defaults to \"*recetf-show*\"."
         (recently-show-tabulated-mode)
         (current-buffer)))))
 
+(defun recently-show-tabulated-find-file ()
+  "Find-file in `recently-show-tabulated-mode'."
+  (interactive)
+  (let ((f (tabulated-list-get-id)))
+    (when f
+      (recently-show-tabulated-close)
+      (find-file f))))
+
+(defvar recently-show-tabulated-mode-map
+  (let ((map (make-sparse-keymap)))
+    (suppress-keymap map)
+    (define-key map (kbd "C-m") 'recently-show-tabulated-find-file)
+    (define-key map "v" 'recently-show-tabulated-view-file)
+    (define-key map "@" 'recently-show-tabulated-dired)
+    (define-key map (kbd "C-g") 'recently-show-tabulated-close)
+    (define-key map "/" 'isearch-forward)
+    map))
+
 (define-derived-mode recently-show-tabulated-mode tabulated-list-mode "Recently Show"
   "Major mode for browsing recently opened files and directories."
   (setq tabulated-list-padding 2)
@@ -2284,6 +2302,12 @@ use for the buffer. It defaults to \"*recetf-show*\"."
   (kill-buffer (current-buffer))
   (set-window-configuration recently-show-window-configuration))
 
+(defun recently-show-tabulated-close ()
+  "Close recently-show window."
+  (interactive)
+  (kill-buffer (current-buffer))
+  (set-window-configuration recently-show-window-configuration))
+
 (defun recently-show-find-file ()
   "Fine file of current line."
   (interactive)