;;; url-history.el --- Global history tracking for URL package
-;; Copyright (c) 1996 - 1999,2004 Free Software Foundation, Inc.
-;; Copyright (c) 1993 - 1996 by William M. Perry <wmperry@cs.indiana.edu>
+;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
+;; 2005 Free Software Foundation, Inc.
;; Keywords: comm, data, processes, hypermedia
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
(autoload 'url-do-setup "url")
(defgroup url-history nil
- "History variables in the URL package"
+ "History variables in the URL package."
:prefix "url-history"
: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 eq to `t', then the list is saved to disk at the end of each emacs
+If set to t, then the list is saved to disk at the end of each Emacs
session."
:type 'boolean
:group 'url-history)
(defun url-history-setup-save-timer ()
"Reset the history list timer."
(interactive)
- (ignore-errors
+ (ignore-errors
(cond ((fboundp 'cancel-timer) (cancel-timer url-history-timer))
((fboundp 'delete-itimer) (delete-itimer url-history-timer))))
(setq url-history-timer nil)
(defun url-have-visited-url (url)
(url-do-setup)
- (gethash url url-history-hash-table nil))
+ (and url-history-hash-table
+ (gethash url url-history-hash-table nil)))
(defun url-completion-function (string predicate function)
(url-do-setup)
(gethash string url-history-hash-table)
t))
(t
- (error "url-completion-function very confused."))))
+ (error "url-completion-function very confused"))))
(provide 'url-history)