diff options
Diffstat (limited to 'lib-src')
| -rw-r--r-- | lib-src/etags.c | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/lib-src/etags.c b/lib-src/etags.c index 536ca567f18..1e66de77a9f 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c | |||
| @@ -31,7 +31,7 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |||
| 31 | * Francesco Potorti` (F.Potorti@cnuce.cnr.it) is the current maintainer. | 31 | * Francesco Potorti` (F.Potorti@cnuce.cnr.it) is the current maintainer. |
| 32 | */ | 32 | */ |
| 33 | 33 | ||
| 34 | char pot_etags_version[] = "@(#) pot revision number is 11.66"; | 34 | char pot_etags_version[] = "@(#) pot revision number is 11.71"; |
| 35 | 35 | ||
| 36 | #define TRUE 1 | 36 | #define TRUE 1 |
| 37 | #define FALSE 0 | 37 | #define FALSE 0 |
| @@ -450,7 +450,9 @@ Fortran is tried first; if no tags are found, C is tried next."); | |||
| 450 | void | 450 | void |
| 451 | print_version () | 451 | print_version () |
| 452 | { | 452 | { |
| 453 | printf ("%s for Emacs version %s\n", (CTAGS) ? "ctags" : "etags", VERSION); | 453 | printf ("%s (GNU Emacs %s)\n", (CTAGS) ? "ctags" : "etags", VERSION); |
| 454 | puts ("Copyright (C) 1996 Free Software Foundation, Inc. and Ken Arnold"); | ||
| 455 | puts ("This program is distributed under the same terms as Emacs"); | ||
| 454 | 456 | ||
| 455 | exit (GOOD); | 457 | exit (GOOD); |
| 456 | } | 458 | } |
| @@ -549,6 +551,9 @@ are. Relative ones are stored relative to the output file's directory."); | |||
| 549 | 551 | ||
| 550 | print_language_names (); | 552 | print_language_names (); |
| 551 | 553 | ||
| 554 | puts (""); | ||
| 555 | puts ("Report bugs to bug-gnu-emacs@prep.ai.mit.edu"); | ||
| 556 | |||
| 552 | exit (GOOD); | 557 | exit (GOOD); |
| 553 | } | 558 | } |
| 554 | 559 | ||
| @@ -947,9 +952,6 @@ main (argc, argv) | |||
| 947 | because we want them ordered. Let's do it now. */ | 952 | because we want them ordered. Let's do it now. */ |
| 948 | if (cxref_style) | 953 | if (cxref_style) |
| 949 | { | 954 | { |
| 950 | tagf = fopen (tagfile, append_to_tagfile ? "a" : "w"); | ||
| 951 | if (tagf == NULL) | ||
| 952 | pfatal (tagfile); | ||
| 953 | put_entries (head); | 955 | put_entries (head); |
| 954 | exit (GOOD); | 956 | exit (GOOD); |
| 955 | } | 957 | } |
| @@ -982,7 +984,7 @@ main (argc, argv) | |||
| 982 | sprintf (cmd, "sort %s -o %s", tagfile, tagfile); | 984 | sprintf (cmd, "sort %s -o %s", tagfile, tagfile); |
| 983 | exit (system (cmd)); | 985 | exit (system (cmd)); |
| 984 | } | 986 | } |
| 985 | exit (GOOD); | 987 | return GOOD; |
| 986 | } | 988 | } |
| 987 | 989 | ||
| 988 | 990 | ||
| @@ -4106,11 +4108,11 @@ readline_internal (linebuffer, stream) | |||
| 4106 | { | 4108 | { |
| 4107 | *--p = '\0'; | 4109 | *--p = '\0'; |
| 4108 | #ifdef DOS_NT | 4110 | #ifdef DOS_NT |
| 4109 | /* Assume CRLF->LF translation will be performed by Emacs | 4111 | /* Assume CRLF->LF translation will be performed by Emacs |
| 4110 | when loading this file, so CRs won't appear in the buffer. | 4112 | when loading this file, so CRs won't appear in the buffer. |
| 4111 | It would be cleaner to compensate within Emacs; | 4113 | It would be cleaner to compensate within Emacs; |
| 4112 | however, Emacs does not know how many CRs were deleted | 4114 | however, Emacs does not know how many CRs were deleted |
| 4113 | before any given point in the file. */ | 4115 | before any given point in the file. */ |
| 4114 | chars_deleted = 1; | 4116 | chars_deleted = 1; |
| 4115 | #else | 4117 | #else |
| 4116 | chars_deleted = 2; | 4118 | chars_deleted = 2; |