# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885782028 0
# Node ID c6d9f48bd2f8da2ad061527710a1ca903ecbd5c8
# Parent  31a8ad177c4c9f7c757e81c337e900cb17b025ca
(sh-case): Fix paren error.

diff -r 31a8ad177c4c -r c6d9f48bd2f8 lisp/progmodes/sh-script.el
--- 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'."