Refactor

emacs.el

@@ -1814,30 +1814,32 @@ This mode is a simplified version of `adoc-mode'."
                            (file-attributes recently-file))))))
 
 (defun recently-add (path)
-  "Add file to list."
+  "Add PATH to list."
   (cl-assert (string= path
                       (expand-file-name path)))
   (recently-reload)
-  (let* ((l recently-list)
+  (let* ((l (copy-list recently-list))
          (l (delete path
                     l))
          (l (cl-loop for e in l
                      unless (file-in-directory-p path e)
-                     collect e)))
-    (setq recently-list
-          (cons path
-                l)))
-  (recently-truncate)
-  (recently-write))
-
-(defun recently-truncate ()
-  "Truncate list."
-  (when (> (length recently-list)
-           recently-max)
-    (setq recently-list
-          (cl-subseq recently-list
+                     collect e))
+         (l (recently-truncate (cons path
+                                     l)
+                               recently-max)))
+    (unless (equal recently-list
+                   l)
+      (setq recently-list l)
+      (recently-write))))
+
+(defun recently-truncate (list len)
+  "Truncate LIST to LEN."
+  (when (> (length list)
+           len)
+    (setq list
+          (cl-subseq list
                      0
-                     recently-max))))
+                     len))))
 
 (defun recently-find-file-hook ()
   "Add current file."