procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; * lisp/emacs-lisp/package.el (describe-package-1): Tweak recent.

Browse source
This commit is contained in:
Glenn Morris 2017-04-04 20:19:24 -04:00
parent fe8cf45710
commit ab0a27517c
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/package.el
View file

@ -2355,12 +2355,11 @@ Otherwise no newline is inserted."
(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))))
(if (string-match-p "^http://\\(elpa\\|www\\)\\.gnu\\.org/" homepage)
(let ((gnu (cdr (assoc "gnu" package-archives))))
(and gnu (string-match-p "^https" gnu)
(setq homepage
(replace-regexp-in-string "^http" "https" homepage)))))
(package--print-help-section "Homepage")
(help-insert-xref-button homepage 'help-url homepage)
(insert "\n"))