From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Mon, 20 Apr 2015 06:20:54 +0000 (+0100)
Subject: * lisp/emacs-lisp/package.el: Make archive and status pseudo-keywords
X-Git-Tag: emacs-25.0.90~2355
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fad6b8a093c14bcf3f699878de501a1a7467cf4c;p=emacs.git

* lisp/emacs-lisp/package.el: Make archive and status pseudo-keywords

(package--has-keyword-p): Understand "arc:xxxx" and "status:xxxx"
as special keywords which match agains package archive and status
respectively.

* etc/NEWS: Document it.
---

diff --git a/etc/NEWS b/etc/NEWS
index a9c0d2e307e..9dd0e1512cc 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -238,6 +238,11 @@ in the surrounding GUI (using the OSC-52 escape sequence).
 ** xterm-mouse-mode now supports mouse-tracking (if your xterm supports it).
 
 ** package.el
+
+*** When filtering the package menu, keywords starting with "arc:" or
+"status:" represent package archive or status, respectively, instead
+of actual keywords.
+
 *** Most functions which involve downloading information now take an
 ASYNC argument.  If it is non-nil, package.el performs the download(s)
 asynchronously.
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 9cd6b3b9a66..4590582575f 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2535,12 +2535,14 @@ Built-in packages are converted with `package--from-builtin'."
   "Test if package DESC has any of the given KEYWORDS.
 When none are given, the package matches."
   (if keywords
-      (let* ((desc-keywords (and desc (package-desc--keywords desc)))
-             found)
-        (dolist (k keywords)
-          (when (and (not found)
-                     (member k desc-keywords))
-            (setq found t)))
+      (let ((desc-keywords (and desc (package-desc--keywords desc)))
+            found)
+        (while (and (not found) keywords)
+          (let ((k (pop keywords)))
+            (setq found
+                  (or (string= k (concat "arc:" (package-desc-archive desc)))
+                      (string= k (concat "status:" (package-desc-status desc)))
+                      (member k desc-keywords)))))
         found)
     t))