[Emacs-diffs] /srv/bzr/emacs/trunk r110864: Remove report-emacs-bug-query-existing-bugs (use debbugs from GNU ELPA instead)

[Glenn Morris]

------------------------------------------------------------
revno: 110864
fixes bug: http://debbugs.gnu.org/7449
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2012-11-10 15:19:43 -0800
message:
  Remove report-emacs-bug-query-existing-bugs (use debbugs from GNU ELPA 
instead)
  
  * lisp/mail/emacsbug.el (report-emacs-bug-tracker-url)
  (report-emacs-bug-bug-alist, report-emacs-bug-choice-widget)
  (report-emacs-bug-create-existing-bugs-buffer)
  (report-emacs-bug-parse-query-results)
  (report-emacs-bug-query-existing-bugs): Remove.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-10 23:13:33 +0000
+++ b/lisp/ChangeLog    2012-11-10 23:19:43 +0000
@@ -1,5 +1,11 @@
 2012-11-10  Glenn Morris  <address@hidden>
 
+       * mail/emacsbug.el (report-emacs-bug-tracker-url)
+       (report-emacs-bug-bug-alist, report-emacs-bug-choice-widget)
+       (report-emacs-bug-create-existing-bugs-buffer)
+       (report-emacs-bug-parse-query-results)
+       (report-emacs-bug-query-existing-bugs): Remove.  (Bug#7449)
+
        * term.el (term-default-fg-color, term-default-bg-color):
        Make obsolete, rather than just saying "deprecated" in the doc.
 

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2012-11-08 18:35:08 +0000
+++ b/lisp/mail/emacsbug.el     2012-11-10 23:19:43 +0000
@@ -60,10 +60,6 @@
 
 ;; User options end here.
 
-(defvar report-emacs-bug-tracker-url "http://debbugs.gnu.org/cgi/";
-  "Base URL of the GNU bugtracker.
-Used for querying duplicates and linking to existing bugs.")
-
 (defvar report-emacs-bug-orig-text nil
   "The automatically-created initial text of the bug report.")
 
@@ -444,91 +440,6 @@
         (delete-region pos (field-end (1+ pos)))))))
 
 
-;; Querying the bug database
-
-(defvar report-emacs-bug-bug-alist nil)
-(make-variable-buffer-local 'report-emacs-bug-bug-alist)
-(defvar report-emacs-bug-choice-widget nil)
-(make-variable-buffer-local 'report-emacs-bug-choice-widget)
-
-(defun report-emacs-bug-create-existing-bugs-buffer (bugs keywords)
-  (switch-to-buffer (get-buffer-create "*Existing Emacs Bugs*"))
-  (setq buffer-read-only t)
-  (let ((inhibit-read-only t))
-    (erase-buffer)
-    (setq report-emacs-bug-bug-alist bugs)
-    (widget-insert (propertize (concat "Already known bugs ("
-                                      keywords "):\n\n")
-                              'face 'bold))
-    (if bugs
-       (setq report-emacs-bug-choice-widget
-             (apply 'widget-create 'radio-button-choice
-                    :value (caar bugs)
-                    (let (items)
-                      (dolist (bug bugs)
-                        (push (list
-                               'url-link
-                               :format (concat "Bug#" (number-to-string (nth 2 
bug))
-                                               ": " (cadr bug) "\n    
%[%v%]\n")
-                               ;; FIXME: Why is only the link of the
-                               ;; active item clickable?
-                               (car bug))
-                              items))
-                      (nreverse items))))
-      (widget-insert "No bugs matching your keywords found.\n"))
-    (widget-insert "\n")
-    (widget-create 'push-button
-                  :notify (lambda (&rest ignore)
-                            ;; TODO: Do something!
-                            (message "Reporting new bug!"))
-                  "Report new bug")
-    (when bugs
-      (widget-insert " ")
-      (widget-create 'push-button
-                    :notify (lambda (&rest ignore)
-                              (let ((val (widget-value 
report-emacs-bug-choice-widget)))
-                                ;; TODO: Do something!
-                                (message "Appending to bug %s!"
-                                         (nth 2 (assoc val 
report-emacs-bug-bug-alist)))))
-                    "Append to chosen bug"))
-    (widget-insert " ")
-    (widget-create 'push-button
-                  :notify (lambda (&rest ignore)
-                            (kill-buffer))
-                  "Quit reporting bug")
-    (widget-insert "\n"))
-  (use-local-map widget-keymap)
-  (widget-setup)
-  (goto-char (point-min)))
-
-(defun report-emacs-bug-parse-query-results (status keywords)
-  (goto-char (point-min))
-  (let (buglist)
-    (while (re-search-forward "<a 
href=\"bugreport\\.cgi\\?bug=\\([[:digit:]]+\\)\">\\([^<]+\\)</a>" nil t)
-      (let ((number (match-string 1))
-           (subject (match-string 2)))
-       (when (not (string-match "^#" subject))
-         (push (list
-                ;; first the bug URL
-                (concat report-emacs-bug-tracker-url
-                        "bugreport.cgi?bug=" number)
-                ;; then the subject and number
-                subject (string-to-number number))
-               buglist))))
-    (report-emacs-bug-create-existing-bugs-buffer (nreverse buglist) 
keywords)))
-
-(defun report-emacs-bug-query-existing-bugs (keywords)
-  "Query for KEYWORDS at `report-emacs-bug-tracker-url', and return the result.
-The result is an alist with items of the form (URL SUBJECT NO)."
-  (interactive "sBug keywords (comma separated): ")
-  (url-retrieve (concat report-emacs-bug-tracker-url
-                       "pkgreport.cgi?include=subject%3A"
-                       (replace-regexp-in-string "[[:space:]]+" "+" keywords)
-                       ";package=emacs")
-               'report-emacs-bug-parse-query-results (list keywords)))
-(make-obsolete 'report-emacs-bug-query-existing-bugs
-              "use the `debbugs' package from GNU ELPA instead." "24.3")
-
 (provide 'emacsbug)
 
 ;;; emacsbug.el ends here