(sh-while-getopts): Fix handling of

empty option string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0c14cfcfb551440f1fa7c3713b4403aab9306d72..a1d0d46e93ec114addbd85eeda73b039ad9c482a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-21  Gerd Moellmann  <gerd@gnu.org>
+
+       * progmodes/sh-script.el (sh-while-getopts): Fix handling of
+       empty option string.
+
 2000-06-21  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * man.el (man): Doc fix.

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 877b27dbdb862c9102f951483f1b913871a0d7d3..b2d80a0181d6091dba288ef4baaf1a4686045b38 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -3939,7 +3939,7 @@ option followed by a colon `:' if the option accepts an argument."
         (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" >