diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-04-04 20:19:24 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-04-04 20:19:24 -0400 |
| commit | ab0a27517c9f9cc9d7a29171558247471ebe1152 (patch) | |
| tree | 6319d03aeca3e8e5aa8fa0f95b7d83d462633442 /lisp/emacs-lisp | |
| parent | fe8cf45710af7d09c830a23d40f234cae795ffbe (diff) | |
| download | emacs-ab0a27517c9f9cc9d7a29171558247471ebe1152.tar.gz | |
; * lisp/emacs-lisp/package.el (describe-package-1): Tweak recent.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 11 |
1 files changed, 5 insertions, 6 deletions
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")) |