Add function

emacs.el

@@ -1995,42 +1995,45 @@ use for the buffer. It defaults to \"*recetf-show*\"."
 
 (defun recently-show--create-buffer-tabulated (&optional files buffer-name)
   "Create buffer listing recently files FILES."
+  (setq files
+        (or files
+            (progn
+              (recently-reload)
+              recently-list)))
   (let ((bname (or buffer-name
-                   "*recently-show-tabulated*"))
-        (list (or files
-                  (progn
-                    (recently-reload)
-                    recently-list))))
-    (when list
+                   "*recently-show-tabulated*")))
+    (when files
       (when (get-buffer bname)
         (kill-buffer bname))
       (with-current-buffer (get-buffer-create bname)
         ;; (setq tabulated-list-sort-key (cons "Name" nil))
-        (setq tabulated-list-entries
-              (mapcar (lambda (f)
-                        (list f
-                              (vector (file-name-nondirectory f)
-                                      (if recently-show-abbreviate
-                                          (abbreviate-file-name f)
-                                        f))))
-                      ;; list
-                      recently-list
-                      ))
-        (let ((max
-               (apply 'max
-                      (mapcar (lambda (l)
-                                (length (elt (cadr l) 0)))
-                              tabulated-list-entries))))
-          (setq tabulated-list-format
-                `[("Name"
-                   ,(min max
-                         30)
-                   t)
-                  ("Full Path" 0 t)])
-          )
+        (recently-show--set-tabulated-list-mode-variables files)
         (recently-show-tabulated-mode)
         (current-buffer)))))
 
+(defun recently-show--set-tabulated-list-mode-variables (files)
+  "Set variables for `tabulated-list-mode'. to use FILES."
+  (setq tabulated-list-entries
+        (mapcar (lambda (f)
+                  (list f
+                        (vector (file-name-nondirectory f)
+                                (if recently-show-abbreviate
+                                    (abbreviate-file-name f)
+                                  f))))
+                files
+                ))
+  (let ((max
+         (apply 'max
+                (mapcar (lambda (l)
+                          (length (elt (cadr l) 0)))
+                        tabulated-list-entries))))
+    (setq tabulated-list-format
+          `[("Name"
+             ,(min max
+                   30)
+             t)
+            ("Full Path" 0 t)])))
+
 (defun recently-show-tabulated-find-file ()
   "Find-file in `recently-show-tabulated-mode'."
   (interactive)