From: Glenn Morris <rgm@gnu.org>
Date: Wed, 5 Apr 2017 00:19:24 +0000 (-0400)
Subject: ; * lisp/emacs-lisp/package.el (describe-package-1): Tweak recent.
X-Git-Tag: emacs-26.0.90~521^2~725
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab0a27517c9f9cc9d7a29171558247471ebe1152;p=emacs.git

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

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 85acf60d08e..769856262b4 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -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"))