Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
53dab082
Commit
53dab082
authored
Jan 06, 2006
by
Eli Zaretskii
Browse files
(report-emacs-bug): Let explanations correctly reflect the address to which
the report will be sent.
parent
cbcc2d49
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
12 deletions
+17
-12
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/mail/emacsbug.el
lisp/mail/emacsbug.el
+12
-12
No files found.
lisp/ChangeLog
View file @
53dab082
2006-01-06 David Reitter <david.reitter@gmail.com>
* mail/emacsbug.el (report-emacs-bug): Let explanations correctly
reflect the address to which the report will be sent.
2006-01-06 Eli Zaretskii <eliz@gnu.org>
* progmodes/ld-script.el (auto-mode-alist): Recognize linker
...
...
lisp/mail/emacsbug.el
View file @
53dab082
...
...
@@ -78,15 +78,16 @@ Prompts for bug subject. Leaves you in a mail buffer."
(
interactive
(
reverse
(
list
(
recent-keys
)
(
read-string
"Bug Subject: "
))))
;; If there are four numbers in emacs-version, this is a pretest
;; version.
(
let
((
pretest-p
(
string-match
"\\..*\\..*\\."
emacs-version
))
(
let
*
((
pretest-p
(
string-match
"\\..*\\..*\\."
emacs-version
))
(
from-buffer
(
current-buffer
))
(
reporting-address
(
if
pretest-p
report-emacs-bug-pretest-address
report-emacs-bug-address
))
user-point
prompt-beg-point
message-end-point
)
(
setq
message-end-point
(
with-current-buffer
(
get-buffer-create
"*Messages*"
)
(
point-max-marker
)))
(
compose-mail
(
if
pretest-p
report-emacs-bug-pretest-address
report-emacs-bug-address
)
(
compose-mail
reporting-address
topic
)
;; The rest of this does not execute
;; if the user was asked to confirm and said no.
...
...
@@ -100,20 +101,19 @@ Prompts for bug subject. Leaves you in a mail buffer."
(
setq
prompt-beg-point
(
point
))
(
unless
report-emacs-bug-no-explanations
;; Insert warnings for novice users.
(
insert
"This bug report will be sent to the Free Software Foundation,\n"
)
(
let
((
pos
(
point
)))
(
insert
"not to your local site managers!"
)
(
put-text-property
pos
(
point
)
'face
'highlight
))
(
insert
"\nPlease write in "
)
(
when
(
string-match
"@gnu\\.org^"
reporting-address
)
(
insert
"This bug report will be sent to the Free Software Foundation,\n"
)
(
let
((
pos
(
point
)))
(
insert
"not to your local site managers!"
)
(
put-text-property
pos
(
point
)
'face
'highlight
)))
(
insert
"\nPlease write in "
)
(
let
((
pos
(
point
)))
(
insert
"English"
)
(
put-text-property
pos
(
point
)
'face
'highlight
))
(
insert
" if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.\n\n"
)
(
insert
(
format
"Your bug report will be posted to the %s mailing list"
(
if
pretest-p
report-emacs-bug-pretest-address
report-emacs-bug-address
)))
reporting-address
))
(
if
pretest-p
(
insert
".\n\n"
)
(
insert
",\nand to the gnu.emacs.bug news group.\n\n"
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment