(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 8bc7209..5a3bf23 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 6a2d87c..e2bc9b1 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)