mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-28 19:42:02 +00:00
(bug_reporting_address): New function.
Use it when displaying usage message.
This commit is contained in:
parent
040122547f
commit
d883731ca8
@ -1,5 +1,8 @@
|
||||
2001-10-28 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
|
||||
|
||||
* emacs.c (bug_reporting_address): New function.
|
||||
Use it when displaying usage message.
|
||||
|
||||
* minibuf.c (read_minibuf): Remove unused external declaration of
|
||||
variable `Qread_only'.
|
||||
|
||||
|
39
src/emacs.c
39
src/emacs.c
@ -285,8 +285,10 @@ abbreviation for a --option.\n\
|
||||
\n\
|
||||
Various environment variables and window system resources also affect\n\
|
||||
Emacs' operation. See the main documentation.\n\
|
||||
\n\
|
||||
Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs\n\
|
||||
\n"
|
||||
|
||||
#define USAGE3 "\
|
||||
Report bugs to %s. First, please see the Bugs\n\
|
||||
section of the Emacs manual or the file BUGS.\n"
|
||||
|
||||
|
||||
@ -713,6 +715,38 @@ void (*__malloc_initialize_hook) () = malloc_initialize_hook;
|
||||
|
||||
#endif /* DOUG_LEA_MALLOC */
|
||||
|
||||
|
||||
#define REPORT_EMACS_BUG_ADDRESS "bug-gnu-emacs@gnu.org"
|
||||
#define REPORT_EMACS_BUG_PRETEST_ADDRESS "emacs-pretest-bug@gnu.org"
|
||||
|
||||
/* This function is used to determine an address to which bug report should
|
||||
be sent. */
|
||||
|
||||
char *bug_reporting_address ()
|
||||
{
|
||||
int count=0;
|
||||
Lisp_Object temp;
|
||||
char *string;
|
||||
|
||||
temp = Fsymbol_value (intern ("emacs-version"));
|
||||
|
||||
/* When `emacs-version' is invalid, use normal address. */
|
||||
if (!STRINGP(temp))
|
||||
return REPORT_EMACS_BUG_ADDRESS;
|
||||
|
||||
string = XSTRING (temp)->data;
|
||||
|
||||
do {
|
||||
if (*string=='.')
|
||||
count++;
|
||||
} while (string++,*string);
|
||||
|
||||
/* When `emacs-version' has at least three dots, it is development or
|
||||
pretest version of Emacs. */
|
||||
return (count>=3) ? REPORT_EMACS_BUG_PRETEST_ADDRESS : REPORT_EMACS_BUG_ADDRESS;
|
||||
}
|
||||
|
||||
|
||||
/* ARGSUSED */
|
||||
int
|
||||
main (argc, argv, envp)
|
||||
@ -978,6 +1012,7 @@ main (argc, argv, envp)
|
||||
{
|
||||
printf (USAGE1, argv[0]);
|
||||
printf (USAGE2);
|
||||
printf (USAGE3, bug_reporting_address());
|
||||
exit (0);
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user