(sh-while-getopts): Fix handling of

empty option string.

(sh-while-getopts): Fix handling of
empty option string.
16ed8416 · Gerd Moellmann · 9f2bbc92 · 16ed8416 · 16ed8416
Commit 16ed8416 authored Jun 21, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/progmodes/sh-script.el lisp/progmodes/sh-script.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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" >