diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-04-04 19:39:57 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-04-04 19:39:57 -0400 |
| commit | f981c611e26e906a88ee52806c78e07bbaa2b14b (patch) | |
| tree | 5bedc87417f22ec9b510d3d19000adbd8f1f69e9 /lisp/emacs-lisp/package.el | |
| parent | 048133d4886d2e7fa547879478127edc9a9243f6 (diff) | |
| download | emacs-f981c611e26e906a88ee52806c78e07bbaa2b14b.tar.gz | |
Advertise https for homepage of gnu.org packages
* lisp/emacs-lisp/package.el (describe-package-1):
Use https, if supported, for the homepage of packages on gnu.org.
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")) |