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

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

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

revision 1.12 by kfstorm, Thu Dec 1 21:45:21 2005 UTC revision 1.13 by rms, Sun Dec 4 17:53:02 2005 UTC
# Line 63  is parsed at startup and used to provide Line 63  is parsed at startup and used to provide
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    
# Line 92  to run the `url-history-setup-save-timer Line 88  to run the `url-history-setup-save-timer
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)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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