Mercurial > emacs
changeset 20771:c6d9f48bd2f8
(sh-case): Fix paren error.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 26 Jan 1998 02:33:48 +0000 |
| parents | 31a8ad177c4c |
| children | a75bd4b8183d |
| files | lisp/progmodes/sh-script.el |
| diffstat | 1 files changed, 34 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/sh-script.el Sun Jan 25 23:06:37 1998 +0000 +++ b/lisp/progmodes/sh-script.el Mon Jan 26 02:33:48 1998 +0000 @@ -1031,44 +1031,44 @@ (define-skeleton sh-case "Insert a case/switch statement. See `sh-feature'." - ((csh "expression: " - "switch( " str " )" \n - > "case " (read-string "pattern: ") ?: \n - > _ \n - "breaksw" \n - ( "other pattern, %s: " - < "case " str ?: \n - > _ \n - "breaksw" \n) - < "default:" \n - > _ \n - resume: - < < "endsw") - (es) - (rc "expression: " - "switch( " str " ) {" \n - > "case " (read-string "pattern: ") \n + (csh "expression: " + "switch( " str " )" \n + > "case " (read-string "pattern: ") ?: \n > _ \n + "breaksw" \n ( "other pattern, %s: " - < "case " str \n - > _ \n) - < "case *" \n + < "case " str ?: \n + > _ \n + "breaksw" \n) + < "default:" \n > _ \n resume: - < < ?}) - (sh "expression: " - "case " str " in" \n - > (read-string "pattern: ") ?\) \n - > _ \n - ";;" \n - ( "other pattern, %s: " - < str ?\) \n - > _ \n - ";;" \n) - < "*)" \n - > _ \n - resume: - < < "esac"))) + < < "endsw") + (es) + (rc "expression: " + "switch( " str " ) {" \n + > "case " (read-string "pattern: ") \n + > _ \n + ( "other pattern, %s: " + < "case " str \n + > _ \n) + < "case *" \n + > _ \n + resume: + < < ?}) + (sh "expression: " + "case " str " in" \n + > (read-string "pattern: ") ?\) \n + > _ \n + ";;" \n + ( "other pattern, %s: " + < str ?\) \n + > _ \n + ";;" \n) + < "*)" \n + > _ \n + resume: + < < "esac")) (define-skeleton sh-for "Insert a for loop. See `sh-feature'."