Changes to gnats/gnats/gnats.el

[Milan Zamazal]

Index: gnats/gnats/gnats.el
diff -c gnats/gnats/gnats.el:1.26 gnats/gnats/gnats.el:1.27
*** gnats/gnats/gnats.el:1.26   Sat Dec 15 10:22:22 2001
--- gnats/gnats/gnats.el        Mon Jan  7 18:14:36 2002
***************
*** 1,6 ****
  ;;; gnats.el --- Emacs interface for GNATS.
  
! ;; Copyright (C) 2000, 2001 Milan Zamazal
  ;; Copyright (C) 2000 Bob Manson
  ;;
  ;; Contributed by Bob Manson (address@hidden)
--- 1,6 ----
  ;;; gnats.el --- Emacs interface for GNATS.
  
! ;; Copyright (C) 2000, 2001, 2002 Milan Zamazal
  ;; Copyright (C) 2000 Bob Manson
  ;;
  ;; Contributed by Bob Manson (address@hidden)
***************
*** 1414,1419 ****
--- 1414,1420 ----
    (define-key gnats-query-mode-map "D" 'gnats-change-database)
    (define-key gnats-query-mode-map "e" 'gnats-query-edit-pr)
    (define-key gnats-query-mode-map "g" 'gnats-query-reread)
+   (define-key gnats-query-mode-map "G" 'query-pr)
    (define-key gnats-query-mode-map "q" 'bury-buffer)
    (define-key gnats-query-mode-map "s" 'send-pr))
  
***************
*** 1589,1599 ****
  QUERY is a string representing a query in the gnatsd format."
    ;; TODO: Maybe the description of the format should be here?
    (interactive (list (read-string "Query: " nil 'query-pr-history)))
!   (let ((edit-buffer (get-buffer-create gnats-query-buffer-name))
        (success nil))
      (unwind-protect
        (save-excursion
!         (set-buffer edit-buffer)
          (gnats-clear-edit-buffer)
          (gnats-delete-process)
          (gnats-edit-server)
--- 1590,1600 ----
  QUERY is a string representing a query in the gnatsd format."
    ;; TODO: Maybe the description of the format should be here?
    (interactive (list (read-string "Query: " nil 'query-pr-history)))
!   (let ((query-buffer (get-buffer-create gnats-query-buffer-name))
        (success nil))
      (unwind-protect
        (save-excursion
!         (set-buffer query-buffer)
          (gnats-clear-edit-buffer)
          (gnats-delete-process)
          (gnats-edit-server)
***************
*** 1608,1616 ****
          (setq success t))
        (if (not success)
          (progn
!           (kill-buffer edit-buffer)
            (kill-buffer (get gnats-server-conn 'server-buffer)))
!       (switch-to-buffer edit-buffer)
        (goto-char (point-min))))))
  
  ;;;###autoload
--- 1609,1618 ----
          (setq success t))
        (if (not success)
          (progn
!           (kill-buffer query-buffer)
            (kill-buffer (get gnats-server-conn 'server-buffer)))
!       (switch-to-buffer query-buffer)
!       (message "%d matching PRs." (count-lines (point-min) (point-max)))
        (goto-char (point-min))))))
  
  ;;;###autoload