Mercurial > emacs

changeset 8180:c98f9acb71e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* etags.c (main): Don't barf on obsolete -t and -T switches. (main): Print an explicative message when a switch is not known. (takeprec): recognise the `character*(*) function' syntax.
author Francesco Potortì <pot@gnu.org>
date Fri, 08 Jul 1994 10:31:16 +0000
parents 87749666b68b
children a5c67d37141b
files lib-src/etags.c
diffstat 1 files changed, 13 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lib-src/etags.c	Fri Jul 08 03:36:21 1994 +0000
+++ b/lib-src/etags.c	Fri Jul 08 10:31:16 1994 +0000
@@ -452,8 +452,8 @@
 	case 'o':
 	  if (tagfile)
 	    {
-	      fprintf (stderr,
-		       "%s: -%c flag may only be given once\n", progname, opt);
+	      fprintf(stderr,
+		      "%s: -%c flag may only be given once.\n", progname, opt);
 	      goto usage;
 	    }
 	  tagfile = optarg;
@@ -467,6 +467,13 @@
 	case 'H':
 	  print_help ();
 	  break;
+	case 't':
+	  typedefs++;
+	  break;
+	case 'T':
+	  typedefs++;
+	  typedefs_and_cplusplus++;
+	  break;
 
 #if (!CTAGS)
 
@@ -481,13 +488,6 @@
 	case 'B':
 	  searchar = '?';
 	  break;
-	case 't':
-	  typedefs++;
-	  break;
-	case 'T':
-	  typedefs++;
-	  typedefs_and_cplusplus++;
-	  break;
 	case 'u':
 	  update++;
 	  break;
@@ -504,6 +504,8 @@
 #endif /* CTAGS */
 
 	default:
+	  fprintf (stderr,
+		   "%s: -%c flag not recognised.\n", progname, opt);
 	  goto usage;
 	}
     }
@@ -2074,6 +2076,8 @@
   dbp++;
   while (isspace (*dbp))
     dbp++;
+  if (tail ("(*)"))
+    return;
   if (!isdigit (*dbp))
     {
       --dbp;			/* force failure */