/[gnats]/gnats/gnats/gnats.el
ViewVC logotype

Diff of /gnats/gnats/gnats.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by pdm, Thu Jan 10 22:58:58 2002 UTC revision 1.29 by pdm, Sun Feb 10 18:26:07 2002 UTC
# Line 517  are applied, the PR contents are reloade Line 517  are applied, the PR contents are reloade
517          (setq field-list (cdr field-list))))          (setq field-list (cdr field-list))))
518      (gnats-clear-edit-buffer)      (gnats-clear-edit-buffer)
519      (gnats-get-pr (get gnats-server-conn 'pr-number))      (gnats-get-pr (get gnats-server-conn 'pr-number))
520      (gnats-edit-mode)))      (gnats-edit-mode t)))
521    
522  (defun gnats-apply-or-submit ()  (defun gnats-apply-or-submit ()
523    "If in edit mode apply the current set of changes, or submit the new PR."    "If in edit mode apply the current set of changes, or submit the new PR."
# Line 703  The value is set to fontify the values o Line 703  The value is set to fontify the values o
703  (defvar gnats-edit-mode-hook nil  (defvar gnats-edit-mode-hook nil
704    "Hook run by `gnats-edit-mode'.")    "Hook run by `gnats-edit-mode'.")
705    
706  (defun gnats-edit-mode ()  (defun gnats-edit-mode (&optional quietp)
707    "Major mode for editing PRs.    "Major mode for editing PRs.
708  Press \\[gnats-apply-or-submit] to submit your changes."  Press \\[gnats-apply-or-submit] to submit your changes."
709    ;; Should we be doing this here?  By the time the mode is specified    ;; Should we be doing this here?  By the time the mode is specified
# Line 725  Press \\[gnats-apply-or-submit] to submi Line 725  Press \\[gnats-apply-or-submit] to submi
725    (make-local-variable 'after-change-functions)    (make-local-variable 'after-change-functions)
726    (setq after-change-functions    (setq after-change-functions
727          (cons 'gnats-extend-properties after-change-functions))          (cons 'gnats-extend-properties after-change-functions))
728    (message "Press `C-c C-c' to submit your changes.")    (unless quietp
729        (message "Press `C-c C-c' to submit your changes."))
730    (run-hooks 'gnats-edit-mode-hook))    (run-hooks 'gnats-edit-mode-hook))
731  (put 'gnats-edit-mode 'mode-class 'special)  (put 'gnats-edit-mode 'mode-class 'special)
732    
# Line 1616  QUERY is a string representing a query i Line 1617  QUERY is a string representing a query i
1617          (goto-char (point-min))))))          (goto-char (point-min))))))
1618    
1619  ;;;###autoload  ;;;###autoload
1620    (defun unlock-database ()
1621      "Unlock the whole database."
1622      (interactive)
1623      (gnats-send-command "UNDB"))
1624    
1625    ;;;###autoload
1626  (defun unlock-pr (pr)  (defun unlock-pr (pr)
1627    "Unlock the problem report PR."    "Unlock the problem report PR."
1628    (interactive "nPR Number: ")    (interactive "sPR Number: ")
1629    (gnats-send-command "UNLK" pr))    (gnats-send-command "UNLK" pr))
1630    
1631  (defun gnats-change-database (database host port user)  (defun gnats-change-database (database host port user)
# Line 1634  QUERY is a string representing a query i Line 1641  QUERY is a string representing a query i
1641                  gnats-port port                  gnats-port port
1642                  gnats-user user))                  gnats-user user))
1643    
1644    (defun gnats-show-connection ()
1645      "Show the server connection buffer associated with the current buffer.
1646    You can use this function to view the communication with gnatsd in case of
1647    problems."
1648      (interactive)
1649      (let ((buffer (get gnats-server-conn 'server-buffer)))
1650        (if buffer
1651            (switch-to-buffer buffer)
1652          (error "No connection associated with this buffer"))))
1653    
1654      
1655    
1656    
1657  (defvar gnats-dbconfig-mode-map nil  (defvar gnats-dbconfig-mode-map nil

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26