# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 956181087 0
# Node ID 75826102199cc0f041a4fa03611f281cd88ee12d
# Parent  d40a7f046efec7d3174f753c7d4229bb728f4eaf
(Texinfo_functions): New function.
(lang_names): Install it.
(Texinfo_suffixes): New variable.

diff -r d40a7f046efe -r 75826102199c lib-src/etags.c
--- a/lib-src/etags.c	Wed Apr 19 21:39:18 2000 +0000
+++ b/lib-src/etags.c	Wed Apr 19 21:51:27 2000 +0000
@@ -1,5 +1,5 @@
 /* Tags file maker to go with GNU Emacs
-   Copyright (C) 1984, 87, 88, 89, 93, 94, 95, 98, 99
+   Copyright (C) 1984, 87, 88, 89, 93, 94, 95, 98, 99, 2000
    Free Software Foundation, Inc. and Ken Arnold
 
 This file is not considered part of GNU Emacs.
@@ -255,6 +255,7 @@
 static void Python_functions P_((FILE *));
 static void Scheme_functions P_((FILE *));
 static void TeX_functions P_((FILE *));
+static void Texinfo_functions P_ ((FILE *));
 static void just_read_file P_((FILE *));
 
 static void print_language_names P_((void));
@@ -522,6 +523,9 @@
 char *TeX_suffixes [] =
   { "TeX", "bib", "clo", "cls", "ltx", "sty", "tex", NULL };
 
+char *Texinfo_suffixes [] =
+  { "texi", "txi", "texinfo", NULL };
+
 char *Yacc_suffixes [] =
   { "y", "ym", "yy", "yxx", "y++", NULL }; /* .ym is Objective yacc file */
 
@@ -552,6 +556,7 @@
   { "python",  Python_functions,    Python_suffixes,      NULL              },
   { "scheme",  Scheme_functions,    Scheme_suffixes,      NULL              },
   { "tex",     TeX_functions,       TeX_suffixes,         NULL              },
+  { "texinfo", Texinfo_functions,   Texinfo_suffixes,     NULL              },
   { "yacc",    Yacc_entries,        Yacc_suffixes,        NULL              },
   { "auto", NULL },             /* default guessing scheme */
   { "none", just_read_file },   /* regexp matching only */
@@ -4378,6 +4383,28 @@
   return -1;
 }
 
+/* Texinfo support.  Dave Love, Mar. 2000.  */
+static void
+Texinfo_functions (inf)
+     FILE * inf;
+{
+  char *cp, *start;
+  LOOP_ON_INPUT_LINES (inf, lb, cp)
+    {
+      if ((*cp++ == '@' && *cp++ == 'n' && *cp++ == 'o' && *cp++ == 'd'
+	      && *cp++ == 'e' && iswhite (*cp++)))
+	{
+	    while (iswhite (*cp))
+	          cp++;
+	      start = cp;
+	        while (*cp != '\0' && *cp != ',')
+		      cp++;
+		  pfnote (savenstr (start, cp - start), TRUE,
+			    lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
+		  }
+    }
+}
+
 /*
  * Prolog support (rewritten) by Anders Lindgren, Mar. 96
  *