------------------------------------------------------------ revno: 332 committer: Michael Albinus <michael.albi...@gmx.de 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 <la...@gnus.org> ;; 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 <michael.albi...@gmx.de> ;; 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
