From 1942d6ccfd54b9b2cf75ee4590d0319045b0e132 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Dec 2005 19:15:13 +0000 Subject: [PATCH] (url-history-track): Call url-history-setup-save-timer in :set function. :type allows three alternatives. (url-history-setup-save-timer): Test url-history-track. --- lisp/url/ChangeLog | 8 ++++++++ lisp/url/url-history.el | 14 ++++++++++---- 2 files changed, 18 insertions(+), 4 deletions(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 9a8c8955fc5..c7379715df6 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,11 @@ +2005-12-01 Klaus Straubinger (tiny change) + + * url-history.el (url-history-track): + Call url-history-setup-save-timer in :set function. + :type allows three alternatives. + (url-history-setup-save-timer): Test url-history-track. + * url.el (url-retrieve): Test url-history-track. + 2005-11-18 Stefan Monnier * url-http.el: Use with-current-buffer. diff --git a/lisp/url/url-history.el b/lisp/url/url-history.el index 6da5dd91551..a847b26cec2 100644 --- a/lisp/url/url-history.el +++ b/lisp/url/url-history.el @@ -38,11 +38,17 @@ :group 'url) (defcustom url-history-track nil - "*Controls whether to keep a list of all the URLS being visited. -If non-nil, url will keep track of all the URLS visited. + "*Controls whether to keep a list of all the URLs being visited. +If non-nil, the URL package will keep track of all the URLs visited. If set to t, then the list is saved to disk at the end of each Emacs session." - :type 'boolean + :set #'(lambda (var val) + (set-default var val) + (and (bound-and-true-p 'url-setup-done) + (url-history-setup-save-timer))) + :type '(choice (const :tag "off" nil) + (const :tag "on" t) + (const :tag "within session" 'session)) :group 'url-history) (defcustom url-history-file nil @@ -89,7 +95,7 @@ to run the `url-history-setup-save-timer' function manually." (cond ((fboundp 'cancel-timer) (cancel-timer url-history-timer)) ((fboundp 'delete-itimer) (delete-itimer url-history-timer)))) (setq url-history-timer nil) - (if url-history-save-interval + (if (and (eq url-history-track t) url-history-save-interval) (setq url-history-timer (cond ((fboundp 'run-at-time) -- 2.39.5