From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Jan 1998 02:33:48 +0000 (+0000)
Subject: (sh-case): Fix paren error.
X-Git-Tag: emacs-20.3~2303
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cef926f31852ed1f17079e6f5f35651fd064aa31;p=emacs.git

(sh-case): Fix paren error.
---

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'."