From a6efc2c25d1c6b32827c54deaccc6dd704d34d96 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 26 Feb 2005 15:23:43 +0000 Subject: [PATCH] (url-have-visited-url): Don't barf if url-history-hash-table is nil. --- lisp/url/ChangeLog | 5 +++++ lisp/url/url-history.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 (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 * 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)