Make recentf daily cleanup repeat

* lisp/recentf.el (recentf-auto-cleanup): Fix wording.
* lisp/recentf.el (recentf-auto-cleanup): Make timer repeat,
update docstring.
* etc/NEWS: Update news (bug#39638).

diff --git a/etc/NEWS b/etc/NEWS
index b4f29ab783b4be33a82acdc68e370a856745a0d9..43a99afafa37412fa5838a3c1ffe58d3d48840eb 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -152,6 +152,13 @@ your init file:
     (setq frame-title-format '(multiple-frames "%b"
                               ("" invocation-name "@" system-name)))
 
+** recentf
+
+---
+*** 'recentf-auto-cleanup' time string now repeats.
+When 'recentf-auto-cleanup' is set to a time string, it now repeats
+every day, rather than only running once after the mode is turned on.
+
 \f
 * Editing Changes in Emacs 28.1
 

diff --git a/lisp/recentf.el b/lisp/recentf.el
index 877edd4be1f14b95e87221bd50c7858a7d651a86..61c39de12b2955403a42056af363d51d93222ee8 100644 (file)
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -245,7 +245,10 @@ The following values can be set:
 - A number
     Cleanup each time Emacs has been idle that number of seconds.
 - A time string
-    Cleanup at specified time string, for example at \"11:00pm\".
+    Cleanup at specified time string daily, for example at \"11:00pm\".
+
+If a time string is provided and it is already past the specified time
+for the current day, the first cleanup happens immediately as for `mode'.
 
 Setting this variable directly does not take effect;
 use \\[customize].
@@ -257,7 +260,7 @@ cleanup the list."
                         :value mode)
                 (const  :tag "Never"
                         :value never)
-                (number :tag "When idle that seconds"
+                (number :tag "When idle after (seconds)"
                         :value 300)
                 (string :tag "At time"
                         :value "11:00pm"))
@@ -371,7 +374,8 @@ See also the option `recentf-auto-cleanup'.")
              recentf-auto-cleanup t 'recentf-cleanup))
            ((stringp recentf-auto-cleanup)
             (run-at-time
-             recentf-auto-cleanup nil 'recentf-cleanup))))))
+             ;; Repeat every 24 hours.
+             recentf-auto-cleanup (* 24 60 60) 'recentf-cleanup))))))
 \f
 ;;; File functions
 ;;