/[emacs]/emacs/lisp/url/url-cookie.el
ViewVC logotype

Diff of /emacs/lisp/url/url-cookie.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by ttn, Sat Aug 6 15:55:38 2005 UTC revision 1.15 by rms, Thu Dec 8 00:01:35 2005 UTC
# Line 449  telling Microsoft that." Line 449  telling Microsoft that."
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    
# Line 461  to run the `url-cookie-setup-save-timer' Line 460  to run the `url-cookie-setup-save-timer'
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    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26