mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

* emacs-lisp/package.el (describe-package-1): Tell what archive is used to

Browse source 
install the package.

Patch by Nicolas Richard.
This commit is contained in:
Nicolas Richard 2013-02-06 17:10:13 +01:00 • committed by Bastien Guerry
parent 5fd03926b3
commit 55b056bacf
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-02-06 Nicolas Richard <theonewiththeevillook@yahoo.fr> (tiny change)
* emacs-lisp/package.el (describe-package-1): Tell what archive is
used to install the package.
2013-02-06 Glenn Morris <rgm@gnu.org> 2013-02-06 Glenn Morris <rgm@gnu.org>
* vc/vc-hooks.el (vc-find-file-hook): Don't ask about following links * vc/vc-hooks.el (vc-find-file-hook): Don't ask about following links

9
lisp/emacs-lisp/package.el
View file

@ -1182,7 +1182,7 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages."
(require 'lisp-mnt) (require 'lisp-mnt)
(let ((package-name (symbol-name package)) (let ((package-name (symbol-name package))
(built-in (assq package package--builtins)) (built-in (assq package package--builtins))
desc pkg-dir reqs version installable) desc pkg-dir reqs version installable archive)
(prin1 package) (prin1 package)
(princ " is ") (princ " is ")
(cond (cond
@ -1196,6 +1196,7 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages."
;; Available packages are in `package-archive-contents'. ;; Available packages are in `package-archive-contents'.
((setq desc (cdr (assq package package-archive-contents))) ((setq desc (cdr (assq package package-archive-contents)))
(setq version (package-version-join (package-desc-vers desc)) (setq version (package-version-join (package-desc-vers desc))
archive (aref desc (- (length desc) 1))
installable t) installable t)
(if built-in (if built-in
(insert "a built-in package.\n\n") (insert "a built-in package.\n\n")
@ -1224,8 +1225,10 @@ If optional arg NO-ACTIVATE is non-nil, don't activate packages."
(installable (installable
(if built-in (if built-in
(insert (propertize "Built-in." 'font-lock-face 'font-lock-builtin-face) (insert (propertize "Built-in." 'font-lock-face 'font-lock-builtin-face)
" Alternate version available -- ") " Alternate version available")
(insert "Available -- ")) (insert "Available"))
(insert " from " archive)
(insert " -- ")
(let ((button-text (if (display-graphic-p) "Install" "[Install]")) (let ((button-text (if (display-graphic-p) "Install" "[Install]"))
(button-face (if (display-graphic-p) (button-face (if (display-graphic-p)
'(:box (:line-width 2 :color "dark grey") '(:box (:line-width 2 :color "dark grey")