el-get-describe: URL is a button

This commit is contained in:
Julien Danjou 2011-06-24 15:00:21 +02:00
parent b1ab38462f
commit f5b30a3613

View File

@ -3046,7 +3046,9 @@ entry which is not a symbol and is not already a known recipe."
(princ (format "%s is an `el-get' package.\n\nIt is currently %s.\n\n" name
(if status status "not installed")))
(when website
(princ (format "Website: %s\n" website)))
(princ (format "Website: "))
(help-insert-xref-button website 'help-url website)
(princ "\n"))
(when descr
(princ (format "Description: %s\n" descr)))
(princ (format "The default installation method is %s %s\n\n" type
@ -3066,7 +3068,8 @@ entry which is not a symbol and is not already a known recipe."
(called-interactively-p 'interactive))
(save-excursion
(with-help-window (help-buffer)
(el-get-describe-1 package)
(with-current-buffer (help-buffer)
(el-get-describe-1 package))
(with-current-buffer standard-output
(buffer-string))))))