diff options
| author | Steven Allen <steven@stebalien.com> | 2020-08-15 13:37:38 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-15 13:37:38 +0200 |
| commit | f4e7f7695f4c0f372f606b543afee73f264d6191 (patch) | |
| tree | 049ced7257331b2c45db2eb7532644cbfe77fc48 /lisp/url/url-expand.el | |
| parent | 5b463af8dda4d66bb63a7ce58177e83a42541bac (diff) | |
| download | emacs-f4e7f7695f4c0f372f606b543afee73f264d6191.tar.gz emacs-f4e7f7695f4c0f372f606b543afee73f264d6191.tar.bz2 emacs-f4e7f7695f4c0f372f606b543afee73f264d6191.zip | |
Fix thinko in setting url-portspec
* lisp/url/url-expand.el (url-default-expander): Set
`url-portspec' (bug#42869).
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 f34ef810c4a..be9b5426dc4 100644 --- a/lisp/url/url-expand.el +++ b/lisp/url/url-expand.el @@ -120,7 +120,7 @@ path components followed by `..' are removed, along with the `..' itself." ;; Well, they told us the scheme, let's just go with it. nil (setf (url-type urlobj) (or (url-type urlobj) (url-type defobj))) - (setf (url-port urlobj) (or (url-portspec urlobj) + (setf (url-portspec urlobj) (or (url-portspec urlobj) (and (string= (url-type urlobj) (url-type defobj)) (url-port defobj)))) |