(sh-while-getopts) <sh>: Handle case that

user-specified option string is empty.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3364548719ce1b1f8ad88271989a73f830d598b1..1d3ff0f0182420818673f84e392047cd91297545 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-05-15  Gerd Moellmann  <gerd@gnu.org>
+
+       * progmodes/sh-script.el (sh-while-getopts) <sh>: Handle case that
+       user-specified option string is empty.
+
+       * mouse.el (mouse-yank-at-click): Doc fix.
+
 2000-05-15  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * term/internal.el (IT-character-translations): More updates of

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index f1956f609e2e2850698ba7d48c4495b93531855f..fc9284f1f9b8f8af03ad4041c8c9c1f9ebc97ea3 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -3943,7 +3943,8 @@ 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)
-      "] [--] ARGS...\"" \n
+      (if (length v1) "] ")
+      "[--] ARGS...\"" \n
       "exit 2"  > \n
         "esac" >
         \n "done"