Mercurial > emacs
comparison lib-src/etags.c @ 35302:6a51ef53518f
2001-01-15 Francesco Potorti` <pot@pot.cnuce.cnr.it>
* etags.c (print_language_names): Print filenames in addition to
suffixes.
author | Francesco Potortì <pot@gnu.org> |
---|---|
date | Mon, 15 Jan 2001 08:57:56 +0000 |
parents | e268b7b500f0 |
children | ede82ab0ae24 |
comparison
equal
deleted
inserted
replaced
35301:6cb4bc361bf8 | 35302:6a51ef53518f |
---|---|
29 * Regexp tags by Tom Tromey. | 29 * Regexp tags by Tom Tromey. |
30 * | 30 * |
31 * Francesco Potorti` (pot@gnu.org) is the current maintainer. | 31 * Francesco Potorti` (pot@gnu.org) is the current maintainer. |
32 */ | 32 */ |
33 | 33 |
34 char pot_etags_version[] = "@(#) pot revision number is 13.47"; | 34 char pot_etags_version[] = "@(#) pot revision number is 13.48"; |
35 | 35 |
36 #define TRUE 1 | 36 #define TRUE 1 |
37 #define FALSE 0 | 37 #define FALSE 0 |
38 | 38 |
39 #ifndef DEBUG | 39 #ifndef DEBUG |
577 | 577 |
578 static void | 578 static void |
579 print_language_names () | 579 print_language_names () |
580 { | 580 { |
581 language *lang; | 581 language *lang; |
582 char **ext; | 582 char **name, **ext; |
583 | 583 |
584 puts ("\nThese are the currently supported languages, along with the\n\ | 584 puts ("\nThese are the currently supported languages, along with the\n\ |
585 default file name suffixes:"); | 585 default file names and dot suffixes:"); |
586 for (lang = lang_names; lang->name != NULL; lang++) | 586 for (lang = lang_names; lang->name != NULL; lang++) |
587 { | 587 { |
588 printf ("\t%s\t", lang->name); | 588 printf (" %-*s", 10, lang->name); |
589 if (lang->filenames != NULL) | |
590 for (name = lang->filenames; *name != NULL; name++) | |
591 printf (" %s", *name); | |
589 if (lang->suffixes != NULL) | 592 if (lang->suffixes != NULL) |
590 for (ext = lang->suffixes; *ext != NULL; ext++) | 593 for (ext = lang->suffixes; *ext != NULL; ext++) |
591 printf (" .%s", *ext); | 594 printf (" .%s", *ext); |
592 puts (""); | 595 puts (""); |
593 } | 596 } |