(sh-while-getopts): Punctuate help message better.

This commit is contained in:
Richard M. Stallman 1996-04-15 21:17:59 +00:00
parent bbcbfd687a
commit c898fb2821

View file

@ -1297,12 +1297,12 @@ option followed by a colon `:' if the option accepts an argument."
";;" \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