# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 958421679 0
# Node ID dcafe3c9cd6c23329233c4c8c1e4ed7553cc44ce
# Parent  c0732e5c1f582212480abd906f7cb1b9e9aea442
(sh-while-getopts) <sh>: Handle case that
user-specified option string is empty.

diff -r c0732e5c1f58 -r dcafe3c9cd6c lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Mon May 15 20:13:54 2000 +0000
+++ b/lisp/progmodes/sh-script.el	Mon May 15 20:14:39 2000 +0000
@@ -3943,7 +3943,8 @@
 	 (while (search-backward ":" v1 t)
 	   (replace-match " ARG] [+-" t t)))
       (if (eq (preceding-char) ?-) -5)
-      "] [--] ARGS...\"" \n
+      (if (length v1) "] ")
+      "[--] ARGS...\"" \n
       "exit 2"  > \n
         "esac" >
 	 \n "done"