diff options
| author | Nicolas Richard <theonewiththeevillook@yahoo.fr> | 2013-02-06 17:10:13 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@gnu.org> | 2013-02-06 17:10:13 +0100 |
| commit | 55b056bacf43ae3daeebe484911ef3c8acbc9516 (patch) | |
| tree | 11aaf691815b5591052a2c9921f1fced9d04f321 /lisp/emacs-lisp/package.el | |
| parent | 5fd03926b34b26255bbde9dc1696183625f8be03 (diff) | |
| download | emacs-55b056bacf43ae3daeebe484911ef3c8acbc9516.tar.gz emacs-55b056bacf43ae3daeebe484911ef3c8acbc9516.tar.bz2 emacs-55b056bacf43ae3daeebe484911ef3c8acbc9516.zip | |
* emacs-lisp/package.el (describe-package-1): Tell what archive is used to
install the package.
Patch by Nicolas Richard.
Diffstat (limited to 'lisp/emacs-lisp/package.el')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 6059f03f999..dd828691158 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1182,7 +1182,7 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages." (require 'lisp-mnt) (let ((package-name (symbol-name package)) (built-in (assq package package--builtins)) - desc pkg-dir reqs version installable) + desc pkg-dir reqs version installable archive) (prin1 package) (princ " is ") (cond @@ -1196,6 +1196,7 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages." ;; Available packages are in `package-archive-contents'. ((setq desc (cdr (assq package package-archive-contents))) (setq version (package-version-join (package-desc-vers desc)) + archive (aref desc (- (length desc) 1)) installable t) (if built-in (insert "a built-in package.\n\n") @@ -1224,8 +1225,10 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages." (installable (if built-in (insert (propertize "Built-in." 'font-lock-face 'font-lock-builtin-face) - " Alternate version available -- ") - (insert "Available -- ")) + " Alternate version available") + (insert "Available")) + (insert " from " archive) + (insert " -- ") (let ((button-text (if (display-graphic-p) "Install" "[Install]")) (button-face (if (display-graphic-p) '(:box (:line-width 2 :color "dark grey") |