[Emacs-diffs] trunk r114942: Add Archive column to package list.

[Teodor Zlatanov]

------------------------------------------------------------
revno: 114942
revision-id: address@hidden
parent: address@hidden
committer: Ted Zlatanov <address@hidden>
branch nick: quickfixes
timestamp: Mon 2013-11-04 11:04:09 -0500
message:
  Add Archive column to package list.
  
  * emacs-lisp/package.el (package-menu-mode)
  (package-menu--print-info, package-menu--archive-predicate): Add
  Archive column to package list.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-04 15:34:42 +0000
+++ b/lisp/ChangeLog    2013-11-04 16:04:09 +0000
@@ -1,3 +1,9 @@
+2013-11-04  Teodor Zlatanov  <address@hidden>
+
+       * emacs-lisp/package.el (package-menu-mode)
+       (package-menu--print-info, package-menu--archive-predicate): Add
+       Archive column to package list.
+
 2013-11-04  Michael Albinus  <address@hidden>
 
        Fix problems found while writing a test suite.

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2013-11-02 10:55:22 +0000
+++ b/lisp/emacs-lisp/package.el        2013-11-04 16:04:09 +0000
@@ -1581,6 +1581,7 @@
   (setq tabulated-list-format [("Package" 18 package-menu--name-predicate)
                               ("Version" 12 nil)
                               ("Status"  10 package-menu--status-predicate)
+                              ("Archive" 10 package-menu--archive-predicate)
                               ("Description" 0 nil)])
   (setq tabulated-list-padding 2)
   (setq tabulated-list-sort-key (cons "Status" nil))
@@ -1703,6 +1704,8 @@
                                (package-desc-version pkg-desc))
                              'font-lock-face face)
                  (propertize status 'font-lock-face face)
+                 (propertize (or (package-desc-archive pkg-desc) "")
+                              'font-lock-face face)
                  (propertize (package-desc-summary pkg-desc)
                               'font-lock-face face)))))
 
@@ -1919,6 +1922,10 @@
   (string< (symbol-name (package-desc-name (car A)))
           (symbol-name (package-desc-name (car B)))))
 
+(defun package-menu--archive-predicate (A B)
+  (string< (or (package-desc-archive (car A)) "")
+          (or (package-desc-archive (car B)) "")))
+
 ;;;###autoload
 (defun list-packages (&optional no-fetch)
   "Display a list of packages.