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

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 8bc7209749f..5a3bf23529c 100644
--- 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 6a2d87cfbc1..e2bc9b17f69 100644
--- 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)