1343 |
;;;###autoload |
;;;###autoload |
1344 |
(defun send-pr (&optional arg) |
(defun send-pr (&optional arg) |
1345 |
"Generate a new initial PR template for the user. |
"Generate a new initial PR template for the user. |
1346 |
If a prefix argument is given, run `gnats-change-database' first. |
If a prefix argument is given, run `gnats-change-database' first." |
|
" |
|
1347 |
(interactive "P") |
(interactive "P") |
1348 |
(when arg |
(when arg |
1349 |
(call-interactively 'gnats-change-database)) |
(call-interactively 'gnats-change-database)) |
1448 |
(define-key keymap "e" nil) |
(define-key keymap "e" nil) |
1449 |
(define-key keymap "g" nil) |
(define-key keymap "g" nil) |
1450 |
(define-key keymap "s" nil) |
(define-key keymap "s" nil) |
1451 |
|
(define-key keymap "\r" nil) |
1452 |
keymap)))) |
keymap)))) |
1453 |
(run-hooks 'gnats-query-mode-hook)) |
(run-hooks 'gnats-query-mode-hook)) |
1454 |
(put 'gnats-query-mode 'mode-class 'special) |
(put 'gnats-query-mode 'mode-class 'special) |