/[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.24 by pdm, Tue Oct 16 15:05:29 2001 UTC revision 1.25 by pdm, Tue Dec 11 21:36:41 2001 UTC
# Line 971  Write it into the appropriate field prop Line 971  Write it into the appropriate field prop
971                                               (gnats-field-list-as-string)))                                               (gnats-field-list-as-string)))
972      (gnats-iterate-info (get gnats-server-conn 'field-list) our-field-list      (gnats-iterate-info (get gnats-server-conn 'field-list) our-field-list
973                          '(lambda (field val)                          '(lambda (field val)
974                               (when val
975                                 (while (string-match "\\\\n" val)
976                                   (setq val (replace-match "\n" nil nil val)))
977                                 (when (and (gnats-multitext-field-p field)
978                                            (string-match "\\`\n" val))
979                                   (setq val (replace-match "" nil nil val))))
980                             (put field 'input-default val)))                             (put field 'input-default val)))
981    
982      (setq our-field-list (gnats-send-command "LIST INITIALINPUTFIELDS"))      (setq our-field-list (gnats-send-command "LIST INITIALINPUTFIELDS"))
# Line 1335  locking the database." Line 1341  locking the database."
1341        (kill-buffer query-pr-buffer))))        (kill-buffer query-pr-buffer))))
1342    
1343  ;;;###autoload  ;;;###autoload
1344  (defun send-pr ()  (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    (interactive)  If a prefix argument is given, run `gnats-change-database' first.
1347    "
1348      (interactive "P")
1349      (when arg
1350        (call-interactively 'gnats-change-database))
1351    (let ((edit-buffer (generate-new-buffer "*gnats-send*"))    (let ((edit-buffer (generate-new-buffer "*gnats-send*"))
1352          (success nil))          (success nil))
1353      (unwind-protect      (unwind-protect

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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