Mercurial > emacs
annotate lisp/mail/reporter.el @ 69637:8b3e0cacc358
Define aliases for append_glyph and produce_stretch_glyph
when `static' is defined to avoid name clash with those in xdisp.c.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Wed, 22 Mar 2006 22:47:32 +0000 |
parents | 067115a6e738 |
children | f7702c5f335d c5406394f567 |
rev | line source |
---|---|
3421 | 1 ;;; reporter.el --- customizable bug reporting of lisp programs |
2 | |
64754
fafd692d1e40
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 2002, 2003, 2004, |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64806
diff
changeset
|
4 ;; 2005, 2006 Free Software Foundation, Inc. |
14169 | 5 |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
6 ;; Author: 1993-1998 Barry A. Warsaw |
29246 | 7 ;; Maintainer: FSF |
3421 | 8 ;; Created: 19-Apr-1993 |
15590 | 9 ;; Keywords: maint mail tools |
3421 | 10 |
4839 | 11 ;; This file is part of GNU Emacs. |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
12 |
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
3421 | 14 ;; it under the terms of the GNU General Public License as published by |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
15 ;; the Free Software Foundation; either version 2, or (at your option) |
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
16 ;; any later version. |
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
17 |
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
3421 | 19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
22 |
3421 | 23 ;; You should have received a copy of the GNU General Public License |
14169 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
3421 | 27 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
28 ;;; Commentary: |
14169 | 29 |
15590 | 30 ;; End User Interface |
31 ;; ================== | |
32 ;; The variable `mail-user-agent' contains a symbol indicating which | |
33 ;; Emacs mail package end users would like to use to compose outgoing | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
34 ;; mail. See that variable for details (it is no longer defined in |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
35 ;; this file). |
15590 | 36 |
37 ;; Lisp Package Authors | |
38 ;; ==================== | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
39 ;; reporter.el was written primarily for Emacs Lisp package authors so |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
40 ;; that their users can more easily report bugs. When invoked, |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
41 ;; `reporter-submit-bug-report' will set up an outgoing mail buffer |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
42 ;; with the appropriate bug report address, including a lisp |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
43 ;; expression the maintainer of the package can evaluate to completely |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
44 ;; reproduce the environment in which the bug was observed (e.g. by |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
45 ;; using `eval-last-sexp'). This package proved especially useful |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
46 ;; during my development of CC Mode, which is highly dependent on its |
15590 | 47 ;; configuration variables. |
3421 | 48 ;; |
49 ;; Do a "C-h f reporter-submit-bug-report" for more information. | |
50 ;; Here's an example usage: | |
51 ;; | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
52 ;;(defconst mypkg-version "9.801") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
53 ;;(defconst mypkg-maintainer-address "mypkg-help@foo.com") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
54 ;;(defun mypkg-submit-bug-report () |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
55 ;; "Submit via mail a bug report on mypkg" |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
56 ;; (interactive) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
57 ;; (require 'reporter) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
58 ;; (reporter-submit-bug-report |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
59 ;; mypkg-maintainer-address |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
60 ;; (concat "mypkg.el " mypkg-version) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
61 ;; (list 'mypkg-variable-1 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
62 ;; 'mypkg-variable-2 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
63 ;; ;; ... |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
64 ;; 'mypkg-variable-last))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
65 |
3421 | 66 ;;; Code: |
67 | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
68 |
15530 | 69 ;; vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv |
70 ;; Package author interface variables | |
71 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
72 (defvar reporter-prompt-for-summary-p nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
73 "Interface variable controlling prompting for problem summary. |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
74 When non-nil, `reporter-submit-bug-report' prompts the user for a |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
75 brief summary of the problem, and puts this summary on the Subject: |
15590 | 76 line. If this variable is a string, that string is used as the prompt |
77 string. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
78 |
29246 | 79 Default behavior is to not prompt (i.e. nil). If you want reporter to |
15590 | 80 prompt, you should `let' bind this variable before calling |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
81 `reporter-submit-bug-report'. Note that this variable is not |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
82 buffer-local so you should never just `setq' it.") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
83 |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
84 (defvar reporter-dont-compact-list nil |
14004
7709c74b3188
(reporter-dont-compact-list): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
11422
diff
changeset
|
85 "Interface variable controlling compacting of list values. |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
86 When non-nil, this must be a list of variable symbols. When a |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
87 variable containing a list value is formatted in the bug report mail |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
88 buffer, it normally is compacted so that its value fits one the fewest |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
89 number of lines. If the variable's symbol appears in this list, its |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
90 value is printed in a more verbose style, specifically, one elemental |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
91 sexp per line. |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
92 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
93 Note that this variable is not buffer-local so you should never just |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
94 `setq' it. If you want to changes its default value, you should `let' |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
95 bind it.") |
3421 | 96 |
15590 | 97 ;; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ |
15530 | 98 ;; End of editable variables |
99 | |
15590 | 100 |
3903 | 101 (defvar reporter-eval-buffer nil |
102 "Buffer to retrieve variable's value from. | |
103 This is necessary to properly support the printing of buffer-local | |
104 variables. Current buffer will always be the mail buffer being | |
105 composed.") | |
4855
e12addbc2c52
(reporter-submit-bug-report, reporter-mailer): reporter-mailer
Richard M. Stallman <rms@gnu.org>
parents:
4839
diff
changeset
|
106 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
107 (defvar reporter-initial-text nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
108 "The automatically created initial text of a bug report.") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
109 (make-variable-buffer-local 'reporter-initial-text) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
110 |
15590 | 111 |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
112 |
15590 | 113 ;; status feedback to the user |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
114 (defvar reporter-status-message nil) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
115 (defvar reporter-status-count nil) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
116 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
117 (defun reporter-update-status () |
29246 | 118 "Periodically output a status message." |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
119 (if (zerop (% reporter-status-count 10)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
120 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
121 (message reporter-status-message) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
122 (setq reporter-status-message (concat reporter-status-message ".")))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
123 (setq reporter-status-count (1+ reporter-status-count))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
124 |
3421 | 125 |
15590 | 126 ;; dumping/pretty printing of values |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
127 (defun reporter-beautify-list (maxwidth compact-p) |
29246 | 128 "Pretty print a list." |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
129 (reporter-update-status) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
130 (let ((move t) |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
131 linebreak indent-enclosing-p indent-p here) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
132 (condition-case nil ;loop exit |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
133 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
134 (down-list 1) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
135 (setq indent-enclosing-p t) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
136 (while move |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
137 (setq here (point)) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
138 ;; The following line is how we break out of the while |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
139 ;; loop, in one of two ways. Either we've hit the end of |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
140 ;; the buffer, in which case scan-sexps returns nil, or |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
141 ;; we've crossed unbalanced parens and it will raise an |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
142 ;; error we're expecting to catch. |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
143 (setq move (scan-sexps (point) 1)) |
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
144 (goto-char move) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
145 (if (<= maxwidth (current-column)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
146 (if linebreak |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
147 (progn |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
148 (goto-char linebreak) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
149 (newline-and-indent) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
150 (setq linebreak nil)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
151 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
152 (setq indent-p (reporter-beautify-list maxwidth compact-p)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
153 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
154 (forward-sexp 1) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
155 (if indent-p |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
156 (newline-and-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
157 t) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
158 (if compact-p |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
159 (setq linebreak (point)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
160 (newline-and-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
161 )) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
162 t) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
163 (error indent-enclosing-p)))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
164 |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
165 (defun reporter-lisp-indent (indent-point state) |
29246 | 166 "A better lisp indentation style for bug reporting." |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
167 (save-excursion |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
168 (goto-char (1+ (nth 1 state))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
169 (current-column))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
170 |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
171 (defun reporter-dump-variable (varsym mailbuf) |
29246 | 172 "Pretty-print the value of the variable in symbol VARSYM. |
173 MAILBUF is the mail buffer being composed." | |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
174 (reporter-update-status) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
175 (condition-case nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
176 (let ((val (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
177 (set-buffer reporter-eval-buffer) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
178 (symbol-value varsym))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
179 (sym (symbol-name varsym)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
180 (print-escape-newlines t) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
181 (maxwidth (1- (window-width))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
182 (here (point))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
183 (insert " " sym " " |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
184 (cond |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
185 ((memq val '(t nil)) "") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
186 ((listp val) "'") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
187 ((symbolp val) "'") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
188 (t "")) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
189 (prin1-to-string val)) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
190 (lisp-indent-line) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
191 ;; clean up lists, but only if the line as printed was long |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
192 ;; enough to wrap |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
193 (if (and val ;nil is a list, but short |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
194 (listp val) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
195 (<= maxwidth (current-column))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
196 (save-excursion |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
197 (let ((compact-p (not (memq varsym reporter-dont-compact-list))) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
198 (lisp-indent-function 'reporter-lisp-indent)) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
199 (goto-char here) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
200 (reporter-beautify-list maxwidth compact-p)))) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
201 (insert "\n")) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
202 (void-variable |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
203 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
204 (set-buffer mailbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
205 (mail-position-on-field "X-Reporter-Void-Vars-Found") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
206 (end-of-line) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
207 (insert (symbol-name varsym) " "))) |
15590 | 208 (error |
209 (error "")))) | |
3421 | 210 |
211 (defun reporter-dump-state (pkgname varlist pre-hooks post-hooks) | |
29246 | 212 "Dump the state of the mode specific variables. |
213 PKGNAME contains the name of the mode as it will appear in the bug | |
214 report (you must explicitly concat any version numbers). | |
3421 | 215 |
29246 | 216 VARLIST is the list of variables to dump. Each element in |
217 VARLIST can be a variable symbol, or a cons cell. If a symbol, | |
218 this will be passed to `reporter-dump-variable' for insertion | |
219 into the mail buffer. If a cons cell, the car must be a variable | |
220 symbol and the cdr must be a function which will be `funcall'd | |
221 with arguments the symbol and the mail buffer being composed. Use | |
222 this to write your own custom variable value printers for | |
223 specific variables. | |
3903 | 224 |
29246 | 225 Note that the global variable `reporter-eval-buffer' will be bound to |
226 the buffer in which `reporter-submit-bug-report' was invoked. If you | |
227 want to print the value of a buffer local variable, you should wrap | |
228 the `eval' call in your custom printer inside a `set-buffer' (and | |
229 probably a `save-excursion'). `reporter-dump-variable' handles this | |
230 properly. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
231 |
29246 | 232 PRE-HOOKS is run after the Emacs version and PKGNAME are inserted, but |
233 before the VARLIST is dumped. POST-HOOKS is run after the VARLIST is | |
234 dumped." | |
3421 | 235 (let ((buffer (current-buffer))) |
236 (set-buffer buffer) | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
237 (insert "Emacs : " (emacs-version) "\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
238 (and pkgname |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
239 (insert "Package: " pkgname "\n")) |
3421 | 240 (run-hooks 'pre-hooks) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
241 (if (not varlist) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
242 nil |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
243 (insert "\ncurrent state:\n==============\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
244 ;; create an emacs-lisp-mode buffer to contain the output, which |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
245 ;; we'll later insert into the mail buffer |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
246 (condition-case fault |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
247 (let ((mailbuf (current-buffer)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
248 (elbuf (get-buffer-create " *tmp-reporter-buffer*"))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
249 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
250 (set-buffer elbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
251 (emacs-lisp-mode) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
252 (erase-buffer) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
253 (insert "(setq\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
254 (lisp-indent-line) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
255 (mapcar |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
256 (function |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
257 (lambda (varsym-or-cons-cell) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
258 (let ((varsym (or (car-safe varsym-or-cons-cell) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
259 varsym-or-cons-cell)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
260 (printer (or (cdr-safe varsym-or-cons-cell) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
261 'reporter-dump-variable))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
262 (funcall printer varsym mailbuf) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
263 ))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
264 varlist) |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
265 (lisp-indent-line) |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
266 (insert ")\n")) |
64806
74dda054615b
(reporter-dump-state): Use insert-buffer-substring.
Richard M. Stallman <rms@gnu.org>
parents:
64754
diff
changeset
|
267 (insert-buffer-substring elbuf)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
268 (error |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
269 (insert "State could not be dumped due to the following error:\n\n" |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
270 (format "%s" fault) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
271 "\n\nYou should still send this bug report.")))) |
3421 | 272 (run-hooks 'post-hooks) |
273 )) | |
274 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
275 |
15590 | 276 (defun reporter-compose-outgoing () |
29246 | 277 "Compose the outgoing mail buffer. |
278 | |
279 Return the selected paradigm, with the current buffer tacked onto the | |
280 beginning of the list." | |
15590 | 281 (let* ((agent mail-user-agent) |
282 (compose (get mail-user-agent 'composefunc))) | |
283 ;; Sanity check. If this fails then we'll try to use the SENDMAIL | |
284 ;; protocol, otherwise we must signal an error. | |
21312
b5b8f2545eae
(reporter-bug-hook): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
21230
diff
changeset
|
285 (if (not (and compose (functionp compose))) |
15590 | 286 (progn |
287 (setq agent 'sendmail-user-agent | |
288 compose (get agent 'composefunc)) | |
21312
b5b8f2545eae
(reporter-bug-hook): Fix error message.
Richard M. Stallman <rms@gnu.org>
parents:
21230
diff
changeset
|
289 (if (not (and compose (functionp compose))) |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
290 (error "Could not find a valid `mail-user-agent'") |
15590 | 291 (ding) |
15978
86922cff9d87
(reporter-compose-outgoing): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents:
15590
diff
changeset
|
292 (message "`%s' is an invalid `mail-user-agent'; using `sendmail-user-agent'" |
15590 | 293 mail-user-agent) |
294 ))) | |
295 (funcall compose) | |
296 agent)) | |
297 | |
298 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
299 ;;;###autoload |
3421 | 300 (defun reporter-submit-bug-report |
301 (address pkgname varlist &optional pre-hooks post-hooks salutation) | |
26176 | 302 "Begin submitting a bug report via email. |
303 | |
304 ADDRESS is the email address for the package's maintainer. PKGNAME is | |
305 the name of the package (if you want to include version numbers, | |
306 you must put them into PKGNAME before calling this function). | |
29246 | 307 Optional PRE-HOOKS and POST-HOOKS are passed to `reporter-dump-state'. |
308 Optional SALUTATION is inserted at the top of the mail buffer, | |
309 and point is left after the salutation. | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
310 |
26176 | 311 VARLIST is the list of variables to dump (see `reporter-dump-state' |
312 for details). The optional argument PRE-HOOKS and POST-HOOKS are | |
313 passed to `reporter-dump-state'. Optional argument SALUTATION is text | |
314 to be inserted at the top of the mail buffer; in that case, point is | |
315 left after that text. | |
3421 | 316 |
26176 | 317 This function prompts for a summary if `reporter-prompt-for-summary-p' |
318 is non-nil. | |
3421 | 319 |
26176 | 320 This function does not send a message; it uses the given information |
41362
73c81f0d57f2
(reporter-submit-bug-report): Doc fixes.
Colin Walters <walters@gnu.org>
parents:
38416
diff
changeset
|
321 to initialize a message, which the user can then edit and finally send |
38416
ac6b0bba8fcc
(reporter-submit-bug-report):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29246
diff
changeset
|
322 \(or decline to send). The variable `mail-user-agent' controls which |
26176 | 323 mail-sending package is used for editing and sending the message." |
3903 | 324 (let ((reporter-eval-buffer (current-buffer)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
325 final-resting-place |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
326 after-sep-pos |
10227
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
327 (reporter-status-message "Formatting bug report buffer...") |
31d062ac1d2f
(reporter-submit-bug-report): Set up for status messages.
Richard M. Stallman <rms@gnu.org>
parents:
8280
diff
changeset
|
328 (reporter-status-count 0) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
329 (problem (and reporter-prompt-for-summary-p |
15590 | 330 (read-string (if (stringp reporter-prompt-for-summary-p) |
331 reporter-prompt-for-summary-p | |
332 "(Very) brief summary of problem: ")))) | |
333 (agent (reporter-compose-outgoing)) | |
334 (mailbuf (current-buffer)) | |
335 hookvar) | |
336 ;; do the work | |
3421 | 337 (require 'sendmail) |
15590 | 338 ;; If mailbuf did not get made visible before, make it visible now. |
339 (let (same-window-buffer-names same-window-regexps) | |
15319
4dbee658e623
(reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
15309
diff
changeset
|
340 (pop-to-buffer mailbuf) |
15590 | 341 ;; Just in case the original buffer is not visible now, bring it |
342 ;; back somewhere | |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
343 (and pop-up-windows (display-buffer reporter-eval-buffer))) |
3421 | 344 (goto-char (point-min)) |
21865
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
345 (mail-position-on-field "to") |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
346 (insert address) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
347 ;; insert problem summary if available |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
348 (if (and reporter-prompt-for-summary-p problem pkgname) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
349 (progn |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
350 (mail-position-on-field "subject") |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
351 (insert pkgname "; " problem))) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
352 ;; move point to the body of the message |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
353 (mail-text) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
354 (forward-line 1) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
355 (setq after-sep-pos (point)) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
356 (and salutation (insert "\n" salutation "\n\n")) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
357 (unwind-protect |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
358 (progn |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
359 (setq final-resting-place (point-marker)) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
360 (insert "\n\n") |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
361 (reporter-dump-state pkgname varlist pre-hooks post-hooks) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
362 (goto-char final-resting-place)) |
cedd1efb2892
(reporter-calculate-separator): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
21312
diff
changeset
|
363 (set-marker final-resting-place nil)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
364 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
365 ;; save initial text and set up the `no-empty-submission' hook. |
15590 | 366 ;; This only works for mailers that support a pre-send hook, and |
367 ;; for which the paradigm has a non-nil value for the `hookvar' | |
368 ;; key in its agent (i.e. sendmail.el's mail-send-hook). | |
369 (save-excursion | |
370 (goto-char (point-max)) | |
371 (skip-chars-backward " \t\n") | |
372 (setq reporter-initial-text (buffer-substring after-sep-pos (point)))) | |
373 (if (setq hookvar (get agent 'hookvar)) | |
38416
ac6b0bba8fcc
(reporter-submit-bug-report):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29246
diff
changeset
|
374 (add-hook hookvar 'reporter-bug-hook nil t)) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
375 |
15590 | 376 ;; compose the minibuf message and display this. |
377 (let* ((sendkey-whereis (where-is-internal | |
378 (get agent 'sendfunc) nil t)) | |
379 (abortkey-whereis (where-is-internal | |
380 (get agent 'abortfunc) nil t)) | |
381 (sendkey (if sendkey-whereis | |
382 (key-description sendkey-whereis) | |
383 "C-c C-c")) ; TBD: BOGUS hardcode | |
384 (abortkey (if abortkey-whereis | |
385 (key-description abortkey-whereis) | |
386 "M-x kill-buffer")) ; TBD: BOGUS hardcode | |
387 ) | |
388 (message "Please enter your report. Type %s to send, %s to abort." | |
389 sendkey abortkey)) | |
3421 | 390 )) |
391 | |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
392 (defun reporter-bug-hook () |
29246 | 393 "Prohibit sending mail if empty bug report." |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
394 (let ((after-sep-pos |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
395 (save-excursion |
21998
ccda0e3ab1b6
(reporter-bug-hook): Use rfc822-goto-eoh.
Richard M. Stallman <rms@gnu.org>
parents:
21865
diff
changeset
|
396 (rfc822-goto-eoh) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
397 (forward-line 1) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
398 (point)))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
399 (save-excursion |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
400 (goto-char (point-max)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
401 (skip-chars-backward " \t\n") |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
402 (if (and (= (- (point) after-sep-pos) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
403 (length reporter-initial-text)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
404 (string= (buffer-substring after-sep-pos (point)) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
405 reporter-initial-text)) |
21230
a553c7f85238
(reporter-mail): New function.
Richard M. Stallman <rms@gnu.org>
parents:
18628
diff
changeset
|
406 (error "Empty bug report cannot be sent")) |
8280
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
407 ))) |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
408 |
2c26fd09c101
(reporter-dump-state, reporter-submit-bug-report):
Richard M. Stallman <rms@gnu.org>
parents:
5140
diff
changeset
|
409 |
15590 | 410 (provide 'reporter) |
52401 | 411 |
412 ;;; arch-tag: 33612ff4-fbbc-4be2-b183-560ce9e0199b | |
3421 | 413 ;;; reporter.el ends here |