Prefer HTTPS to HTTP in thing-at-point

* lisp/thingatpt.el (thing-at-point-url-at-point): Prefer HTTPS to
HTTP.

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 72acb0b749f3572d16e76ccf581ce9a2baa661d7..5d4f4df913130d1d26ab3b14e3a02e5f3c7cd3f0 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -565,9 +565,9 @@ looks like an email address, \"ftp://\" if it starts with
         ;; If it looks like ftp.example.com. treat it as ftp.
         (if (string-match "\\`ftp\\." str)
             (setq str (concat "ftp://" str)))
-        ;; If it looks like www.example.com. treat it as http.
+         ;; If it looks like www.example.com. treat it as https.
         (if (string-match "\\`www\\." str)
-            (setq str (concat "http://" str)))
+             (setq str (concat "https://" str)))
         ;; Otherwise, it just isn't a URI.
         (setq str nil)))
       str)))