449 |
Default is 1 hour. Note that if you change this variable outside of |
Default is 1 hour. Note that if you change this variable outside of |
450 |
the `customize' interface after `url-do-setup' has been run, you need |
the `customize' interface after `url-do-setup' has been run, you need |
451 |
to run the `url-cookie-setup-save-timer' function manually." |
to run the `url-cookie-setup-save-timer' function manually." |
452 |
:set (function (lambda (var val) |
:set #'(lambda (var val) |
453 |
(set-default var val) |
(set-default var val) |
454 |
(and (featurep 'url) |
(if (bound-and-true-p url-setup-done) |
455 |
(fboundp 'url-cookie-setup-save-timer) |
(url-cookie-setup-save-timer))) |
|
(url-cookie-setup-save-timer)))) |
|
456 |
:type 'integer |
:type 'integer |
457 |
:group 'url) |
:group 'url) |
458 |
|
|
460 |
(defun url-cookie-setup-save-timer () |
(defun url-cookie-setup-save-timer () |
461 |
"Reset the cookie saver timer." |
"Reset the cookie saver timer." |
462 |
(interactive) |
(interactive) |
463 |
(ignore-errors |
(ignore-errors (cancel-timer url-cookie-timer)) |
|
(cond ((fboundp 'cancel-timer) (cancel-timer url-cookie-timer)) |
|
|
((fboundp 'delete-itimer) (delete-itimer url-cookie-timer)))) |
|
464 |
(setq url-cookie-timer nil) |
(setq url-cookie-timer nil) |
465 |
(if url-cookie-save-interval |
(if url-cookie-save-interval |
466 |
(setq url-cookie-timer |
(setq url-cookie-timer (run-at-time url-cookie-save-interval |
467 |
(cond |
url-cookie-save-interval |
468 |
((fboundp 'run-at-time) |
#'url-cookie-write-file)))) |
|
(run-at-time url-cookie-save-interval |
|
|
url-cookie-save-interval |
|
|
'url-cookie-write-file)) |
|
|
((fboundp 'start-itimer) |
|
|
(start-itimer "url-cookie-saver" 'url-cookie-write-file |
|
|
url-cookie-save-interval |
|
|
url-cookie-save-interval)))))) |
|
469 |
|
|
470 |
(provide 'url-cookie) |
(provide 'url-cookie) |
471 |
|
|