63 |
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 |
64 |
the `customize' interface after `url-do-setup' has been run, you need |
the `customize' interface after `url-do-setup' has been run, you need |
65 |
to run the `url-history-setup-save-timer' function manually." |
to run the `url-history-setup-save-timer' function manually." |
66 |
:set (function (lambda (var val) |
:set #'(lambda (var val) |
67 |
(set-default var val) |
(set-default var val) |
68 |
(and (featurep 'url) |
(if (bound-and-true-p url-setup-done) |
69 |
(fboundp 'url-history-setup-save-timer) |
(url-history-setup-save-timer))) |
|
(let ((def (symbol-function |
|
|
'url-history-setup-save-timer))) |
|
|
(not (and (listp def) (eq 'autoload (car def))))) |
|
|
(url-history-setup-save-timer)))) |
|
70 |
:type 'integer |
:type 'integer |
71 |
:group 'url-history) |
:group 'url-history) |
72 |
|
|
88 |
"Reset the history list timer." |
"Reset the history list timer." |
89 |
(interactive) |
(interactive) |
90 |
(ignore-errors |
(ignore-errors |
91 |
(cond ((fboundp 'cancel-timer) (cancel-timer url-history-timer)) |
(cancel-timer url-history-timer)) |
|
((fboundp 'delete-itimer) (delete-itimer url-history-timer)))) |
|
92 |
(setq url-history-timer nil) |
(setq url-history-timer nil) |
93 |
(if (and (eq url-history-track t) url-history-save-interval) |
(if (and (eq url-history-track t) url-history-save-interval) |
94 |
(setq url-history-timer |
(setq url-history-timer (run-at-time url-history-save-interval |
95 |
(cond |
url-history-save-interval |
96 |
((fboundp 'run-at-time) |
'url-history-save-history)))) |
|
(run-at-time url-history-save-interval |
|
|
url-history-save-interval |
|
|
'url-history-save-history)) |
|
|
((fboundp 'start-itimer) |
|
|
(start-itimer "url-history-saver" 'url-history-save-history |
|
|
url-history-save-interval |
|
|
url-history-save-interval)))))) |
|
97 |
|
|
98 |
;;;###autoload |
;;;###autoload |
99 |
(defun url-history-parse-history (&optional fname) |
(defun url-history-parse-history (&optional fname) |