[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f981c61: Advertise https for homepage of gnu.org pa
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master f981c61: Advertise https for homepage of gnu.org packages |
Date: |
Tue, 4 Apr 2017 19:40:23 -0400 (EDT) |
branch: master
commit f981c611e26e906a88ee52806c78e07bbaa2b14b
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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.
---
lisp/emacs-lisp/package.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index fadd869..85acf60 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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f981c61: Advertise https for homepage of gnu.org packages,
Glenn Morris <=