[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Changes to gnats/gnats/gnats.el
From: |
Milan Zamazal |
Subject: |
Changes to gnats/gnats/gnats.el |
Date: |
Mon, 07 Jan 2002 18:14:36 -0500 |
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
- Changes to gnats/gnats/gnats.el,
Milan Zamazal <=