Ce serveur Gitlab sera éteint le 30 juin 2020, pensez à migrer vos projets vers les serveurs gitlab-research.centralesupelec.fr et gitlab-student.centralesupelec.fr !

Commit e6e92bfe authored by Rüdiger Sonderfeld's avatar Rüdiger Sonderfeld

Improve `el-get-describe' of :builtin packages.

Signed-off-by: 's avatarRüdiger Sonderfeld <ruediger@c-plusplus.de>
parent ea845589
......@@ -85,9 +85,13 @@ matching REGEX with TYPE and ARGS as parameter."
(builtin (plist-get def :builtin))
(url (plist-get def :url))
(depends (plist-get def :depends)))
(princ (format "%s is an `el-get' package. It is currently %s " name
(if status status "not installed")))
(princ (format "%s is an `el-get' package. " name))
(if (eq type 'builtin)
(princ (format "It is built-in since Emacs %s" builtin))
(princ (format "It is currently %s "
(if status
status
"not installed")))
(cond
((string= status "installed")
(el-get-describe-princ-button "[update]" "\\[\\([^]]+\\)\\]"
......@@ -99,7 +103,7 @@ matching REGEX with TYPE and ARGS as parameter."
'el-get-help-update package))
(t
(el-get-describe-princ-button "[install]" "\\[\\([^]]+\\)\\]"
'el-get-help-install package)))
'el-get-help-install package))))
(princ ".\n\n")
(let ((website (or website
......@@ -123,7 +127,7 @@ matching REGEX with TYPE and ARGS as parameter."
'el-get-help-describe-package depends))
(princ ".\n"))
(if (eq type 'builtin)
(princ (format "The package is built in since Emacs %s.\n\n" builtin))
(princ (format "The package is built-in since Emacs %s.\n\n" builtin))
(princ (format "The default installation method is %s %s\n\n" type
(if url (format "from %s" url) ""))))
(princ "Full definition")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment