diff options
| author | Noam Postavsky | 2017-06-14 20:23:29 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2017-06-28 07:39:05 -0400 |
| commit | d3a208ea8e2e3a28fb7d0e30248c7d46e13fc160 (patch) | |
| tree | 63d9ab7b4929c39f6ebdf92954769e847b0aeac9 | |
| parent | 5d45ba1a05bccc53d52422e867f378a0adeb8970 (diff) | |
| download | emacs-d3a208ea8e2e3a28fb7d0e30248c7d46e13fc160.tar.gz emacs-d3a208ea8e2e3a28fb7d0e30248c7d46e13fc160.zip | |
Don't assume url structs are vectors (Bug#27333)
* lisp/url/url-history.el (url-history-update-url): Use `url-p'
instead of `vectorp'.
| -rw-r--r-- | lisp/url/url-history.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 106 | 106 | ||
| 107 | (defun url-history-update-url (url time) | 107 | (defun url-history-update-url (url time) |
| 108 | (setq url-history-changed-since-last-save t) | 108 | (setq url-history-changed-since-last-save t) |
| 109 | (puthash (if (vectorp url) (url-recreate-url url) url) time | 109 | (puthash (if (url-p url) (url-recreate-url url) url) time |
| 110 | url-history-hash-table)) | 110 | url-history-hash-table)) |
| 111 | 111 | ||
| 112 | (autoload 'url-make-private-file "url-util") | 112 | (autoload 'url-make-private-file "url-util") |