[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ab0a275: ; * lisp/emacs-lisp/package.el (describe-p
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master ab0a275: ; * lisp/emacs-lisp/package.el (describe-package-1): Tweak recent. |
Date: |
Tue, 4 Apr 2017 20:19:53 -0400 (EDT) |
branch: master
commit ab0a27517c9f9cc9d7a29171558247471ebe1152
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
; * lisp/emacs-lisp/package.el (describe-package-1): Tweak recent.
---
lisp/emacs-lisp/package.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 85acf60..7698562 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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ab0a275: ; * lisp/emacs-lisp/package.el (describe-package-1): Tweak recent.,
Glenn Morris <=