From cef926f31852ed1f17079e6f5f35651fd064aa31 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 26 Jan 1998 02:33:48 +0000 Subject: [PATCH] (sh-case): Fix paren error. --- lisp/progmodes/sh-script.el | 66 ++++++++++++++++++------------------- 1 file changed, 33 insertions(+), 33 deletions(-) diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 6ac56cdb8c7..4cc89af5f1e 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1031,44 +1031,44 @@ region, clear header." (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 - > _ \n - ( "other pattern, %s: " - < "case " str \n - > _ \n) - < "case *" \n + (csh "expression: " + "switch( " str " )" \n + > "case " (read-string "pattern: ") ?: \n > _ \n - resume: - < < ?}) - (sh "expression: " - "case " str " in" \n - > (read-string "pattern: ") ?\) \n - > _ \n - ";;" \n + "breaksw" \n ( "other pattern, %s: " - < str ?\) \n + < "case " str ?: \n > _ \n - ";;" \n) - < "*)" \n + "breaksw" \n) + < "default:" \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'." -- 2.39.2