diff options
| author | Lars Brinkhoff <lars@nocrew.org> | 2017-03-21 20:48:52 +0100 |
|---|---|---|
| committer | Lars Brinkhoff <lars@nocrew.org> | 2017-04-04 08:23:46 +0200 |
| commit | b6738682ae16c71132c95cd87d48daf598fe89a9 (patch) | |
| tree | 114230b8a5c52886be1741e7e2062b7def9cba61 /lisp/url/url-file.el | |
| parent | 8e6f204f44b6183ba73c7d1bec5841f2b7b8bdd0 (diff) | |
| download | emacs-b6738682ae16c71132c95cd87d48daf598fe89a9.tar.gz | |
Make the URL library use records.
* lisp/url/url.el, lisp/url/url-cache.el, lisp/url/url-dav.el,
lisp/url/url-expand.el, lisp/url/url-file.el, lisp/url/url-imap.el,
lisp/url/url-ldap.el: Use `url-p' instead of `vectorp'.
* lisp/url/url-http.el (url-http): Check for type `url' instead of
`vector'.
Diffstat (limited to 'lisp/url/url-file.el')
| -rw-r--r-- | lisp/url/url-file.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 8e63a9073e3..1dda1d3325d 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -89,7 +89,7 @@ to them." keep-date &optional msg cont nowait)) (defun url-file-build-filename (url) - (if (not (vectorp url)) + (if (not (url-p url)) (setq url (url-generic-parse-url url))) (let* ((user (url-user url)) (pass (url-password url)) |