Changes to gnats/gnats/gnats.el

[Milan Zamazal]

Index: gnats/gnats/gnats.el
diff -c gnats/gnats/gnats.el:1.28 gnats/gnats/gnats.el:1.29
*** gnats/gnats/gnats.el:1.28   Thu Jan 10 17:58:58 2002
--- gnats/gnats/gnats.el        Sun Feb 10 13:26:07 2002
***************
*** 517,523 ****
        (setq field-list (cdr field-list))))
      (gnats-clear-edit-buffer)
      (gnats-get-pr (get gnats-server-conn 'pr-number))
!     (gnats-edit-mode)))
  
  (defun gnats-apply-or-submit ()
    "If in edit mode apply the current set of changes, or submit the new PR."
--- 517,523 ----
        (setq field-list (cdr field-list))))
      (gnats-clear-edit-buffer)
      (gnats-get-pr (get gnats-server-conn 'pr-number))
!     (gnats-edit-mode t)))
  
  (defun gnats-apply-or-submit ()
    "If in edit mode apply the current set of changes, or submit the new PR."
***************
*** 703,709 ****
  (defvar gnats-edit-mode-hook nil
    "Hook run by `gnats-edit-mode'.")
  
! (defun gnats-edit-mode ()
    "Major mode for editing PRs.
  Press \\[gnats-apply-or-submit] to submit your changes."
    ;; Should we be doing this here?  By the time the mode is specified
--- 703,709 ----
  (defvar gnats-edit-mode-hook nil
    "Hook run by `gnats-edit-mode'.")
  
! (defun gnats-edit-mode (&optional quietp)
    "Major mode for editing PRs.
  Press \\[gnats-apply-or-submit] to submit your changes."
    ;; Should we be doing this here?  By the time the mode is specified
***************
*** 725,731 ****
    (make-local-variable 'after-change-functions)
    (setq after-change-functions
        (cons 'gnats-extend-properties after-change-functions))
!   (message "Press `C-c C-c' to submit your changes.")
    (run-hooks 'gnats-edit-mode-hook))
  (put 'gnats-edit-mode 'mode-class 'special)
  
--- 725,732 ----
    (make-local-variable 'after-change-functions)
    (setq after-change-functions
        (cons 'gnats-extend-properties after-change-functions))
!   (unless quietp
!     (message "Press `C-c C-c' to submit your changes."))
    (run-hooks 'gnats-edit-mode-hook))
  (put 'gnats-edit-mode 'mode-class 'special)
  
***************
*** 1616,1624 ****
        (goto-char (point-min))))))
  
  ;;;###autoload
  (defun unlock-pr (pr)
    "Unlock the problem report PR."
!   (interactive "nPR Number: ")
    (gnats-send-command "UNLK" pr))
  
  (defun gnats-change-database (database host port user)
--- 1617,1631 ----
        (goto-char (point-min))))))
  
  ;;;###autoload
+ (defun unlock-database ()
+   "Unlock the whole database."
+   (interactive)
+   (gnats-send-command "UNDB"))
+ 
+ ;;;###autoload
  (defun unlock-pr (pr)
    "Unlock the problem report PR."
!   (interactive "sPR Number: ")
    (gnats-send-command "UNLK" pr))
  
  (defun gnats-change-database (database host port user)
***************
*** 1634,1639 ****
--- 1641,1657 ----
                gnats-port port
                gnats-user user))
  
+ (defun gnats-show-connection ()
+   "Show the server connection buffer associated with the current buffer.
+ You can use this function to view the communication with gnatsd in case of
+ problems."
+   (interactive)
+   (let ((buffer (get gnats-server-conn 'server-buffer)))
+     (if buffer
+       (switch-to-buffer buffer)
+       (error "No connection associated with this buffer"))))
+ 
+   
  
  
  (defvar gnats-dbconfig-mode-map nil