# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822802539 0
# Node ID 3a16ff5f65942d3091abf97ea07e56b7b3e1d817
# Parent  ad30f677493e450481e0505df86ab10a5703c5db
(sort_args): Error if option is missing an arg.

diff -r ad30f677493e -r 3a16ff5f6594 src/emacs.c
--- a/src/emacs.c	Sun Jan 28 03:07:38 1996 +0000
+++ b/src/emacs.c	Sun Jan 28 04:15:39 1996 +0000
@@ -1090,6 +1090,8 @@
 	      {
 		options[from] = standard_args[i].nargs;
 		priority[from] = standard_args[i].priority;
+		if (from + standard_args[i].nargs >= argc)
+		  fatal ("Option `%s' requires an argument\n", argv[from]);
 		from += standard_args[i].nargs;
 		goto done;
 	      }
@@ -1126,6 +1128,8 @@
 		     this option uses just one argv element.  */
 		  if (equals != 0)
 		    options[from] = 0;
+		  if (from + options[from] >= argc)
+		    fatal ("Option `%s' requires an argument\n", argv[from]);
 		  from += options[from];
 		}
 	    }