From 2cd88ac58b9f3e0d4d92db3f18ac80455dd71588 Mon Sep 17 00:00:00 2001 From: Koushk Roy Date: Tue, 2 Jun 2020 22:13:44 -0700 Subject: [PATCH] Grab port as well as host from elpher-current-page --- elpher.el | 1 + 1 file changed, 1 insertion(+) diff --git a/elpher.el b/elpher.el index 56c5996..be60abf 100644 --- a/elpher.el +++ b/elpher.el @@ -1123,6 +1123,7 @@ For instance, the filename /a/b/../c/./d will reduce to /a/c/d" (if (string-empty-p (url-filename address)) (setf (url-filename address) "/")) ;ensure empty filename is marked as absolute (setf (url-host address) (url-host (elpher-page-address elpher-current-page))) + (setf (url-port address) (url-port (elpher-page-address elpher-current-page))) (unless (string-prefix-p "/" (url-filename address)) ;deal with relative links (setf (url-filename address) (concat (file-name-directory -- 2.20.1