X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=5197cb23488d25d45f8c2deb148e4e5f3a338083;hp=a82d1bae68ccdec4b18996cf7300eb0bd0895a6a;hb=47c18669b665691fad2a9277d1002259852bf77f;hpb=2f0cf000c8bdcf18f8622e99a070d74502ed8093

diff --git a/elpher.el b/elpher.el
index a82d1ba..5197cb2 100644
--- a/elpher.el
+++ b/elpher.el
@@ -128,6 +128,7 @@
   (defvar ansi-color-context)
   (defvar bookmark-make-record-function)
   (defvar mu4e~view-beginning-of-url-regexp)
+  (defvar eww-use-browse-url)
   (defvar thing-at-point-uri-schemes)
   (defvar xterm-color-preserve-properties))
 
@@ -1453,7 +1454,7 @@ treatment that a separate function is warranted."
           (if (string-empty-p (url-filename address))
               (setf (url-filename address) "/")) ;ensure empty filename is marked as absolute
         (setf (url-host address) (url-host current-address))
-        (setf (url-port address) (url-port current-address))
+        (setf (url-portspec address) (url-portspec current-address)) ; (url-port) too slow!
         (unless (string-prefix-p "/" (url-filename address)) ;deal with relative links
           (setf (url-filename address)
                 (concat (file-name-directory (url-filename current-address))