[elpa] externals/rt-liberation d9342c68c3: Release version 3 for 'rt-liber-display-ticket-list'

[ELPA Syncer]

branch: externals/rt-liberation
commit d9342c68c3fd28d8a13738e2ac32a34f31f2debd
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    Release version 3 for 'rt-liber-display-ticket-list'
---
 NEWS             |  6 ++++++
 rt-liberation.el | 30 ++++++++++++++++--------------
 2 files changed, 22 insertions(+), 14 deletions(-)

diff --git a/NEWS b/NEWS
index 7e1dff52f1..b1f2efbfaf 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,9 @@
+New in version 3
+
+    * rt-liber-display-ticket-list: display an arbitrary list of
+      tickets.
+
+
 New in version 2.4
 
     * Versions are now in X.Y format in order to be more elpa
diff --git a/rt-liberation.el b/rt-liberation.el
index 2e97f3d990..e02c116883 100644
--- a/rt-liberation.el
+++ b/rt-liberation.el
@@ -5,7 +5,7 @@
 ;; Author: Yoni Rabkin <yrk@gnu.org>
 ;; Authors: Aaron S. Hawley <aaron.s.hawley@gmail.com>, John Sullivan 
<johnsu01@wjsullivan.net>
 ;; Maintainer: Yoni Rabkin <yrk@gnu.org>
-;; Version: 2.4
+;; Version: 3
 ;; Keywords: rt, tickets
 ;; Package-Type: multi
 ;; url: http://www.nongnu.org/rtliber/
@@ -1270,19 +1270,21 @@ ASSOC-BROWSER if non-nil should be a ticket browser."
       (id ticket-id))
      (concat "#" ticket-id))))
 
-(defun rt-liber-reduce-op (op seq)
-  "Simple reduction function for ticket IDs."
-  (concat "Id = "
-         (format "'%s'" (car seq))
-         (rt-liber-reduce-op-int "OR" (cdr seq) "")))
-
-(defun rt-liber-reduce-op-int (op seq acc)
-  "Simple reduction function for ticket IDs (internal)."
-  (cond ((not seq) acc)
-       (t (rt-liber-reduce-op-int
-           op
-           (cdr seq)
-           (concat acc " " op " Id = " (format "'%s'" (car seq)))))))
+;; for use in macro `rt-liber-compile-query'
+(eval-and-compile
+  (defun rt-liber-reduce-op (op seq)
+    "Simple reduction function for ticket IDs."
+    (concat "Id = "
+           (format "'%s'" (car seq))
+           (rt-liber-reduce-op-int op (cdr seq) "")))
+
+  (defun rt-liber-reduce-op-int (op seq acc)
+    "Simple reduction function for ticket IDs (internal)."
+    (cond ((not seq) acc)
+         (t (rt-liber-reduce-op-int
+             op
+             (cdr seq)
+             (concat acc " " op " Id = " (format "'%s'" (car seq))))))))
 
 (defun rt-liber-display-ticket-list (que ticket-id-list &optional buffer-name)
   "Display from QUEUE the tickets TICKET-ID-LIST.