# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 829603079 0
# Node ID 30c4f64f35799b0b4fde70d2ad610f83dc7487ca
# Parent  8c1f6839aff9291fbab185c679f0dcd638a1fde6
(sh-while-getopts): Punctuate help message better.

diff -r 8c1f6839aff9 -r 30c4f64f3579 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Mon Apr 15 21:02:54 1996 +0000
+++ b/lisp/progmodes/sh-script.el	Mon Apr 15 21:17:59 1996 +0000
@@ -1297,12 +1297,12 @@
 	";;" \n)
       < "*)" \n
       > "echo" " \"usage: " "`basename $0`"
-      "[ +-" '(setq v1 (point)) str
+      " [+-" '(setq v1 (point)) str
       '(save-excursion
 	 (while (search-backward ":" v1 t)
-	   (replace-match " arg][ +-" t t)))
+	   (replace-match " ARG] [+-" t t)))
       (if (eq (preceding-char) ?-) -5)
-      "][ --] args\"" \n
+      "] [--] ARGS...\"" \n
       "exit 2" \n
       < < "esac" \n
       < "done" \n