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-expand.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-expand.el')
| -rw-r--r-- | lisp/url/url-expand.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/url/url-expand.el b/lisp/url/url-expand.el index cc9341bdf5f..9ceaa025fb3 100644 --- a/lisp/url/url-expand.el +++ b/lisp/url/url-expand.el @@ -73,7 +73,7 @@ path components followed by `..' are removed, along with the `..' itself." ;; Need to figure out how/where to expand the fragment relative to (setq default (cond - ((vectorp default) + ((url-p default) ;; Default URL has already been parsed default) (default |