[elpa] master 0aea959: Update seq.el to 2.16

2016-06-12 Thread Nicolas Petton
branch: master
commit 0aea9594e12f302f775779c638e1c40289a73482
Author: Nicolas Petton 
Commit: Nicolas Petton 

Update seq.el to 2.16

* packages/seq/seq-24.el:
* packages/seq/seq-25.el: Better implementation of seq-drop for lists.
* packages/seq/seq.el: Bump version number.
---
 packages/seq/seq-24.el |5 +
 packages/seq/seq-25.el |5 +
 packages/seq/seq.el|2 +-
 3 files changed, 3 insertions(+), 9 deletions(-)

diff --git a/packages/seq/seq-24.el b/packages/seq/seq-24.el
index 3b08855..d0aa618 100644
--- a/packages/seq/seq-24.el
+++ b/packages/seq/seq-24.el
@@ -374,10 +374,7 @@ SEQUENCE must be a sequence of numbers or markers."
 (defun seq--drop-list (list n)
   "Return a list from LIST without its first N elements.
 This is an optimization for lists in `seq-drop'."
-  (while (and list (> n 0))
-(setq list (cdr list)
-  n (1- n)))
-  list)
+  (nthcdr n list))
 
 (defun seq--take-list (list n)
   "Return a list from LIST made of its first N elements.
diff --git a/packages/seq/seq-25.el b/packages/seq/seq-25.el
index b6cdb06..b2f5c98 100644
--- a/packages/seq/seq-25.el
+++ b/packages/seq/seq-25.el
@@ -440,10 +440,7 @@ SEQUENCE must be a sequence of numbers or markers."
 
 (cl-defmethod seq-drop ((list list) n)
   "Optimized implementation of `seq-drop' for lists."
-  (while (and list (> n 0))
-(setq list (cdr list)
-  n (1- n)))
-  list)
+  (nthcdr n list))
 
 (cl-defmethod seq-take ((list list) n)
   "Optimized implementation of `seq-take' for lists."
diff --git a/packages/seq/seq.el b/packages/seq/seq.el
index ee029f0..9f96ec8 100644
--- a/packages/seq/seq.el
+++ b/packages/seq/seq.el
@@ -4,7 +4,7 @@
 
 ;; Author: Nicolas Petton 
 ;; Keywords: sequences
-;; Version: 2.15
+;; Version: 2.16
 ;; Package: seq
 
 ;; Maintainer: emacs-de...@gnu.org



[elpa] master 485aba4: Further work on debbugs-gnu-search

2016-06-12 Thread Michael Albinus
branch: master
commit 485aba46966fc9f812898cbd5f17a9e519cca013
Author: Michael Albinus 
Commit: Michael Albinus 

Further work on debbugs-gnu-search

* packages/debbugs/debbugs-gnu.el (debbugs-gnu-suppress-closed):
Set :version to "25.1".
(debbugs-gnu-search): Allow "status" for client-side filter.

* packages/debbugs/debbugs.el (debbugs-get-bugs): Fix docstring.
Use proper values for :status.
(debbugs-get-status): Fix docstring.
(debbugs-search-est): Do not quote keys with apostroph, it doesn't
work in Emacs 25.1.  Use proper values for :status.
---
 packages/debbugs/debbugs-gnu.el |   24 
 packages/debbugs/debbugs.el |   29 +
 2 files changed, 33 insertions(+), 20 deletions(-)

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 6cf8f34..0ecfb16 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -209,7 +209,7 @@
   "If non-nil, don't show closed bugs."
   :group 'debbugs-gnu
   :type 'boolean
-  :version "25.2")
+  :version "25.1")
 
 (defconst debbugs-gnu-all-severities
   (mapcar 'cadr (cdr (get 'debbugs-gnu-default-severities 'custom-type)))
@@ -380,7 +380,9 @@ marked as \"client-side filter\"."
   "Enter attribute: "
   (if phrase
   '("severity" "package" "tags"
-"author" "date" "subject")
+"author" "date" "subject"
+;; Client-side queries.
+"status")
 '("severity" "package" "archive" "src" "status" "tag"
   "owner" "submitter" "maint" "correspondent"
   ;; Client-side queries.
@@ -422,16 +424,21 @@ marked as \"client-side filter\"."
 'debbugs-gnu-current-query
 (cons (intern (if (equal key "author") "@author" key)) val1
 
+;; Client-side filters.
 ((equal key "status")
  (setq
   val1
   (completing-read
-   "Enter status: " '("pending" "forwarded" "fixed" "done")))
+   (format "Enter status%s: "
+   (if (null phrase) "" " (client-side filter)"))
+   '("pending" "forwarded" "fixed" "done")))
  (when (not (zerop (length val1)))
-   (add-to-list
-'debbugs-gnu-current-query (cons (intern key) val1
+(if (null phrase)
+(add-to-list
+ 'debbugs-gnu-current-query (cons (intern key) val1))
+  (add-to-list
+   'debbugs-gnu-current-filter (cons 'pending val1)
 
-;; Client-side filters.
 ((member key '("date" "log_modified" "last_modified"
"found_date" "fixed_date" "unarchived"))
  (setq val1
@@ -470,12 +477,13 @@ marked as \"client-side filter\"."
 'debbugs-gnu-current-query 'debbugs-gnu-current-filter)
 (cons (intern key) (cons val1 val2)
 
+;; "subject", "done", "forwarded", "msgid", "summary".
 ((not (zerop (length key)))
  (setq val1
(funcall
 (if phrase 'read-string 'read-regexp)
-(format "Enter %s%s"
-key (if phrase ": " " (client-side filter)"
+(format "Enter %s%s: "
+key (if phrase "" " (client-side filter)"
  (when (not (zerop (length val1)))
(add-to-list
 (if phrase
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index 8efeddb..c99ba7a 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -181,8 +181,8 @@ Valid keywords are:
   the value of field `affects' in bug's status.  The returned bugs
   do not necessary belong to this package.
 
-  :status -- Status of bug.  Valid values are \"done\",
-  \"forwarded\" and \"open\".
+  :status -- Status of bug.  Valid values are \"pending\",
+  \"forwarded\", \"fixed\" and \"done\".
 
   :archive -- A keyword to filter for bugs which are already
   archived, or not.  Valid values are \"0\" (not archived),
@@ -225,8 +225,8 @@ patch:
   (setq vec (vconcat vec (list key val
   (error "Wrong %s: %s" key val)))
(:status
-;; Possible values: "done", "forwarded" and "open"
-(if (string-match "\\`\\(done\\|forwarded\\|open\\)\\'" val)
+;; Possible values: "pending", "forwarded", "fixed" and "done".
+(if (string-match "\\`\\(pending\\|forwarded\\|fixed\\|done\\)\\'" val)
 (setq vec (vconcat vec (list key val)))
   (error "Wrong %s: %s" key val)))
(:archive
@@ -282,7 +282,7 @@ Every returned entry is an association list