From: Noam Postavsky <npostavs@gmail.com>
Date: Thu, 15 Jun 2017 00:23:29 +0000 (-0400)
Subject: Don't assume url structs are vectors (Bug#27333)
X-Git-Tag: emacs-26.0.90~521^2~11^2~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3a208ea8e2e3a28fb7d0e30248c7d46e13fc160;p=emacs.git

Don't assume url structs are vectors (Bug#27333)

* lisp/url/url-history.el (url-history-update-url): Use `url-p'
instead of `vectorp'.
---

diff --git a/lisp/url/url-history.el b/lisp/url/url-history.el
index 1fa085400d8..70a1a0c1441 100644
--- a/lisp/url/url-history.el
+++ b/lisp/url/url-history.el
@@ -106,7 +106,7 @@ to run the `url-history-setup-save-timer' function manually."
 
 (defun url-history-update-url (url time)
   (setq url-history-changed-since-last-save t)
-  (puthash (if (vectorp url) (url-recreate-url url) url) time
+  (puthash (if (url-p url) (url-recreate-url url) url) time
            url-history-hash-table))
 
 (autoload 'url-make-private-file "url-util")