diff options
| author | Stefan Kangas | 2023-10-24 22:40:12 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2023-10-24 22:40:12 +0200 |
| commit | 643c67cf239cbb9621b3c2aaadd58697d87996f5 (patch) | |
| tree | 9be1af58629472c5b56860ea10960a6dd78f37fe | |
| parent | 64aa01f60ad17af2bd438895a19343f3c369bc43 (diff) | |
| download | emacs-643c67cf239cbb9621b3c2aaadd58697d87996f5.tar.gz emacs-643c67cf239cbb9621b3c2aaadd58697d87996f5.zip | |
Prefer HTTPS to HTTP in ffap
* lisp/ffap.el (ffap-fixup-machine): Prefer HTTPS to HTTP for things
looking like URIs (for example www.example.org).
| -rw-r--r-- | lisp/ffap.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 6f477dd790b..942e218bf23 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el | |||
| @@ -554,7 +554,7 @@ Looks at `ffap-ftp-default-user', returns \"\" for \"localhost\"." | |||
| 554 | (concat "gopher://" mach "/")) | 554 | (concat "gopher://" mach "/")) |
| 555 | ;; www.ncsa.uiuc.edu | 555 | ;; www.ncsa.uiuc.edu |
| 556 | ((and (string-match "\\`w\\(ww\\|eb\\)[-.]" mach)) | 556 | ((and (string-match "\\`w\\(ww\\|eb\\)[-.]" mach)) |
| 557 | (concat "http://" mach "/")) | 557 | (concat "https://" mach "/")) |
| 558 | ;; More cases? | 558 | ;; More cases? |
| 559 | (ffap-ftp-regexp (ffap-host-to-filename mach)) | 559 | (ffap-ftp-regexp (ffap-host-to-filename mach)) |
| 560 | )) | 560 | )) |