diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-15 21:17:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-15 21:17:59 +0000 |
| commit | 91bfbb0ba1876cd4e52ec117af6f80089987e35a (patch) | |
| tree | 110faa3463e9584d3ec6fe5a86638ecacd9ed0ff /lisp/progmodes | |
| parent | ad8e370da4c60513c3ecab44e62fec16773073b2 (diff) | |
| download | emacs-91bfbb0ba1876cd4e52ec117af6f80089987e35a.tar.gz | |
(sh-while-getopts): Punctuate help message better.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/sh-script.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 0a7b387d06f..51923ee2795 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -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 |