# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 961617163 0
# Node ID 093c79809c9ef050cd7b81a2ce80ecbf3919eff6
# Parent  cf3ca2944231e0dfd5b90eb0a7453e5e4f1554fb
(sh-while-getopts): Fix handling of
empty option string.

diff -r cf3ca2944231 -r 093c79809c9e lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Wed Jun 21 18:03:37 2000 +0000
+++ b/lisp/progmodes/sh-script.el	Wed Jun 21 19:52:43 2000 +0000
@@ -3939,7 +3939,7 @@
 	 (while (search-backward ":" v1 t)
 	   (replace-match " ARG] [+-" t t)))
       (if (eq (preceding-char) ?-) -5)
-      (if (length v1) "] ")
+      (if (and (sequencep v1) (length v1)) "] " "} ")
       "[--] ARGS...\"" \n
       "exit 2"  > \n
         "esac" >