diff options
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index fadd869c9d9..85acf60d08e 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -2354,6 +2354,13 @@ Otherwise no newline is inserted." (package-desc-name pkg)))) (insert "\n"))) (when homepage + ;; Prefer https for the homepage of packages on gnu.org. + (let ((gnu (cdr (assoc "gnu" package-archives)))) + (and gnu + (string-match-p "^https" gnu) + (string-match-p "^http://\\(elpa\\|www\\)\\.gnu\\.org/" homepage) + (setq homepage + (replace-regexp-in-string "^http" "https" homepage)))) (package--print-help-section "Homepage") (help-insert-xref-button homepage 'help-url homepage) (insert "\n")) |