mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(url-history-track): Call url-history-setup-save-timer in :set function.

Browse Source 
:type allows three alternatives.
(url-history-setup-save-timer): Test url-history-track.
This commit is contained in:
Richard M. Stallman 2005-12-01 19:15:13 +00:00
parent 11b5750f12
commit 1942d6ccfd
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/url/ChangeLog
View File

@ -1,3 +1,11 @@
2005-12-01 Klaus Straubinger <KSNetz@Arcor.DE> (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 <monnier@iro.umontreal.ca>
* url-http.el: Use with-current-buffer.

14
lisp/url/url-history.el
View File

@ -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)