(url-have-visited-url): Don't barf if url-history-hash-table is nil.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 8bc7209749fa6ca631f1b799523bbe2e3e62807f..5a3bf23529c434e79f5f88ee9f05bec5d0d2fe5a 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-26  James Cloos  <cloos@jhcloos.com>  (tiny change)
+
+       * url-history.el (url-have-visited-url): Don't barf if
+       url-history-hash-table is nil.
+
 2005-02-14  Michael Welsh Duggan  <md5i@cs.cmu.edu>
 
        * url-http.el (url-http-parse-headers): Test url-automatic-caching.

diff --git a/lisp/url/url-history.el b/lisp/url/url-history.el
index 6a2d87cfbc1364780101e291b6324ae87337e56b..e2bc9b17f69ce0820520599a28e18dd9e0f8ada8 100644 (file)
--- a/lisp/url/url-history.el
+++ b/lisp/url/url-history.el
@@ -164,7 +164,8 @@ user for what type to save as."
 
 (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)