[Emacs-diffs] Changes to emacs/lisp/url/url-history.el

[Richard M . Stallman]

Index: emacs/lisp/url/url-history.el
diff -c emacs/lisp/url/url-history.el:1.10 emacs/lisp/url/url-history.el:1.11
*** emacs/lisp/url/url-history.el:1.10  Sat Aug  6 15:55:38 2005
--- emacs/lisp/url/url-history.el       Thu Dec  1 19:15:05 2005
***************
*** 38,48 ****
    :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.
  If set to t, then the list is saved to disk at the end of each Emacs
  session."
!   :type 'boolean
    :group 'url-history)
  
  (defcustom url-history-file nil
--- 38,54 ----
    :group 'url)
  
  (defcustom url-history-track nil
!   "*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."
!   :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,95 ****
      (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
        (setq url-history-timer
            (cond
             ((fboundp 'run-at-time)
--- 95,101 ----
      (cond ((fboundp 'cancel-timer) (cancel-timer url-history-timer))
          ((fboundp 'delete-itimer) (delete-itimer url-history-timer))))
    (setq url-history-timer nil)
!   (if (and (eq url-history-track t) url-history-save-interval)
        (setq url-history-timer
            (cond
             ((fboundp 'run-at-time)