From 0cf450c1ad45cdda602cb78730ed0658687bac3a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 17 May 2025 11:26:23 +0300 Subject: [PATCH] Allow nil as valid value for 'url-cookie-save-interval' * lisp/url/url-cookie.el (url-cookie-save-interval): Fix doc string and :type. (Bug#78303) (cherry picked from commit 44c808773403ee200fcfaf340b11d9244bf5b398) --- lisp/url/url-cookie.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index c2cbdf131cd..430fe9988d6 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -352,23 +352,24 @@ i.e. 1970-1-1) are loaded as expiring one year from now instead." (defvar url-cookie-timer nil) (defcustom url-cookie-save-interval 3600 - "The number of seconds between automatic saves of cookies. -Default is 1 hour. Note that if you change this variable outside of -the `customize' interface after `url-do-setup' has been run, you need -to run the `url-cookie-setup-save-timer' function manually." + "If non-nil, the number of seconds between automatic saves of cookies. +Default is 1 hour; set to nil to disable automatic saving of cookies. +Note that if you change this variable outside of the `customize' +interface after `url-do-setup' has been run, you need to run +the `url-cookie-setup-save-timer' function manually." :set (lambda (var val) (set-default var val) (if (bound-and-true-p url-setup-done) (url-cookie-setup-save-timer))) - :type 'natnum - :group 'url-cookie) + :type '(choice (const :tag "Disable automatic saving of cookies" :value nil) + (natnum :tag "Interval in seconds for auto-saving cookies"))) (defun url-cookie-setup-save-timer () "Reset the cookie saver timer." (interactive) (ignore-errors (cancel-timer url-cookie-timer)) (setq url-cookie-timer nil) - (if url-cookie-save-interval + (if (natnump url-cookie-save-interval) (setq url-cookie-timer (run-at-time url-cookie-save-interval url-cookie-save-interval #'url-cookie-write-file)))) -- 2.39.5