From b376580e975b311390308e49a2b4c951ff6a7574 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 24 Oct 2023 01:01:07 +0200 Subject: [PATCH] Prefer HTTPS to HTTP in thing-at-point * lisp/thingatpt.el (thing-at-point-url-at-point): Prefer HTTPS to HTTP. --- lisp/thingatpt.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 72acb0b749f..5d4f4df9131 100644 --- 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))) -- 2.39.2