|
@@ -2033,8 +2033,9 @@ Return that buffer." |
|
|
(l (cl-loop for e in l |
|
|
(l (cl-loop for e in l |
|
|
unless (file-in-directory-p path e) |
|
|
unless (file-in-directory-p path e) |
|
|
collect e)) |
|
|
collect e)) |
|
|
(l (recently-truncate (cons path |
|
|
|
|
|
l) |
|
|
|
|
|
|
|
|
(l (cons path |
|
|
|
|
|
l)) |
|
|
|
|
|
(l (recently-truncate l |
|
|
recently-max))) |
|
|
recently-max))) |
|
|
(unless (equal recently-list |
|
|
(unless (equal recently-list |
|
|
l) |
|
|
l) |
|
|