[ELPA-diffs] /srv/bzr/emacs/elpa r332: Adapt copyright years.

[Michael Albinus]

------------------------------------------------------------
revno: 332
committer: Michael Albinus <address@hidden
branch nick: elpa
timestamp: Mon 2013-01-07 16:26:31 +0100
message:
  Adapt copyright years.
  
  * debbugs-gnu.el (debbugs-gnu-default-packages): Extend list of packages.
  (debbugs-gnu-get-bugs): Support 'bugs query.
  (debbugs-gnu-usertags): Simplify implementation.
  (debbugs-gnu-bugs): New defun.
modified:
  packages/debbugs/Debbugs.wsdl
  packages/debbugs/debbugs-gnu.el
  packages/debbugs/debbugs.el
  packages/debbugs/debbugs.texi

=== modified file 'packages/debbugs/Debbugs.wsdl'
--- a/packages/debbugs/Debbugs.wsdl     2012-10-29 12:56:24 +0000
+++ b/packages/debbugs/Debbugs.wsdl     2013-01-07 15:26:31 +0000
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 
-<!-- Copyright (C) 2011, 2012  Free Software Foundation, Inc.
+<!-- Copyright (C) 2011-2013  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 

=== modified file 'packages/debbugs/debbugs-gnu.el'
--- a/packages/debbugs/debbugs-gnu.el   2012-12-23 14:55:32 +0000
+++ b/packages/debbugs/debbugs-gnu.el   2013-01-07 15:26:31 +0000
@@ -1,6 +1,6 @@
 ;;; debbugs-gnu.el --- interface for the GNU bug tracker
 
-;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <address@hidden>
 ;; Keywords: comm, hypermedia, maint
@@ -35,6 +35,7 @@
 ;;   (autoload 'debbugs-gnu "debbugs-gnu" "" 'interactive)
 ;;   (autoload 'debbugs-gnu-search "debbugs-gnu" "" 'interactive)
 ;;   (autoload 'debbugs-gnu-usertags "debbugs-gnu" "" 'interactive)
+;;   (autoload 'debbugs-gnu-bugs "debbugs-gnu" "" 'interactive)
 
 ;; The bug tracker is called interactively by
 ;;
@@ -125,6 +126,13 @@
 ;; all users who have tagged bugs.  This list can be retrieved via
 ;; <http://debbugs.gnu.org/cgi/pkgindex.cgi?indexon=users>.
 
+;; Finally, if you simply want to list some bugs with known bug
+;; numbers, call the command
+;;
+;;   M-x debbugs-gnu-bugs
+
+;; The bug numbers to be shown shall be entered as comma separated list.
+
 ;;; Code:
 
 (require 'debbugs)
@@ -163,8 +171,10 @@
 (defcustom debbugs-gnu-default-packages '("emacs")
   "*The list of packages to be searched for."
   ;; <http://debbugs.gnu.org/Packages.html>
+  ;; <http://debbugs.gnu.org/cgi/pkgindex.cgi>
   :group 'debbugs-gnu
   :type '(set (const "automake")
+             (const "cc-mode")
              (const "coreutils")
              (const "debbugs.gnu.org")
              (const "emacs")
@@ -173,8 +183,11 @@
              (const "gnus")
              (const "guile")
              (const "libtool")
+             (const "ns")
+             (const "org-mode")
+             (const "w32")
              (const "woodchuck"))
-  :version "24.1")
+  :version "24.3")
 
 (defconst debbugs-gnu-all-packages
   (mapcar 'cadr (cdr (get 'debbugs-gnu-default-packages 'custom-type)))
@@ -507,6 +520,7 @@
 (defun debbugs-gnu-get-bugs (query)
   "Retrieve bugs numbers from debbugs.gnu.org according search criteria."
   (let* ((debbugs-port "gnu.org")
+        (bugs (assoc 'bugs query))
         (tags (assoc 'tag query))
         (local-tags (and (member '(severity . "tagged") query) (not tags)))
         (phrase (assoc 'phrase query))
@@ -535,6 +549,8 @@
 
     (sort
      (cond
+      ;; If the query is just a list of bug numbers, we return them.
+      (bugs (cdr bugs))
       ;; If the query contains the pseudo-severity "tagged", we return
       ;; just the local tagged bugs.
       (local-tags (copy-sequence debbugs-gnu-local-tags))
@@ -1153,16 +1169,15 @@
   (setq buffer-read-only t))
 
 ;;;###autoload
-(defun debbugs-gnu-usertags (&optional users)
-  "List all outstanding Emacs bugs."
+(defun debbugs-gnu-usertags (&rest users)
+  "List all user tags for USERS, which is \(\"emacs\"\) by default."
   (interactive
-   (list
-    (if current-prefix-arg
-       (completing-read-multiple
-        "Package name(s) or email address: "
-        (append debbugs-gnu-all-packages (list user-mail-address)) nil nil
-        (mapconcat 'identity debbugs-gnu-default-packages ","))
-      debbugs-gnu-default-packages)))
+   (if current-prefix-arg
+       (completing-read-multiple
+       "Package name(s) or email address: "
+       (append debbugs-gnu-all-packages (list user-mail-address)) nil nil
+       (mapconcat 'identity debbugs-gnu-default-packages ","))
+     debbugs-gnu-default-packages))
 
   (unwind-protect
       (let ((inhibit-read-only t)
@@ -1222,6 +1237,17 @@
   (let ((args (get-text-property (line-beginning-position) 
'tabulated-list-id)))
     (when args (apply 'debbugs-gnu args))))
 
+;;;###autoload
+(defun debbugs-gnu-bugs (&rest bugs)
+  "List all BUGS, a list of bug numbers."
+  (interactive
+   (mapcar 'string-to-number
+          (completing-read-multiple "Bug numbers: " nil 'natnump)))
+  (dolist (elt bugs)
+    (unless (natnump elt) (signal 'wrong-type-argument (list 'natnump elt))))
+  (add-to-list 'debbugs-gnu-current-query (cons 'bugs bugs))
+  (debbugs-gnu nil))
+
 (provide 'debbugs-gnu)
 
 ;;; TODO:

=== modified file 'packages/debbugs/debbugs.el'
--- a/packages/debbugs/debbugs.el       2012-10-31 11:22:50 +0000
+++ b/packages/debbugs/debbugs.el       2013-01-07 15:26:31 +0000
@@ -1,6 +1,6 @@
 ;;; debbugs.el --- SOAP library to access debbugs servers
 
-;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2013 Free Software Foundation, Inc.
 
 ;; Author: Michael Albinus <address@hidden>
 ;; Keywords: comm, hypermedia

=== modified file 'packages/debbugs/debbugs.texi'
--- a/packages/debbugs/debbugs.texi     2012-10-31 11:27:25 +0000
+++ b/packages/debbugs/debbugs.texi     2013-01-07 15:26:31 +0000
@@ -8,7 +8,7 @@
 @end direntry
 
 @copying
-Copyright @copyright{} 2011, 2012 Free Software Foundation, Inc.
+Copyright @copyright{} 2011-2013 Free Software Foundation, Inc.
 
 @quotation
 Permission is granted to copy, distribute and/or modify this document