# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859002790 0
# Node ID d6eb07a26f039530bee8db5c295f934aff73eb4e
# Parent  de55dc47bae67f8086d75d1ee066b120b944e7e2
(sh-case): Define with defun and defvar
instead of define-skeleton.

diff -r de55dc47bae6 -r d6eb07a26f03 lisp/progmodes/sh-script.el
--- a/lisp/progmodes/sh-script.el	Sat Mar 22 03:52:36 1997 +0000
+++ b/lisp/progmodes/sh-script.el	Sat Mar 22 03:53:10 1997 +0000
@@ -929,47 +929,54 @@
 ;; You are welcome to add the syntax or even completely new statements as
 ;; appropriate for your favorite shell.
 
-(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
+;; This defun is the same as what define-skeleton does,
+;; but by putting the data in a variable named sh-case,
+;; we make it possible to use that variable in the menu-enable property.
+(defun sh-case (&optional str arg)
+  (interactive "*P\nP")
+  (skeleton-proxy-new sh-case str arg))
+(put 'sh-case 'menu-enable '(sh-feature sh-case))
+
+(defvar sh-case
+  '((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
-	 "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
-      > _ \n
-      resume:
-      < < ?})
-  (sh "expression: "
-      "case " str " in" \n
-      > (read-string "pattern: ") ?\) \n
-      > _ \n
-      ";;" \n
-      ( "other pattern, %s: "
-	< str ?\) \n
+	 resume:
+	 < < "endsw")
+    (es)
+    (rc "expression: "
+	"switch( " str " ) {" \n
+	> "case " (read-string "pattern: ") \n
+	> _ \n
+	( "other pattern, %s: "
+	  < "case " str \n
+	  > _ \n)
+	< "case *" \n
 	> _ \n
-	";;" \n)
-      < "*)" \n
-      > _ \n
-      resume:
-      < < "esac"))
-(put 'sh-case 'menu-enable '(sh-feature sh-case))
+	resume:
+	< < ?})
+    (sh "expression: "
+	"case " str " in" \n
+	> (read-string "pattern: ") ?\) \n
+	> _ \n
+	";;" \n
+	( "other pattern, %s: "
+	  < str ?\) \n
+	  > _ \n
+	  ";;" \n)
+	< "*)" \n
+	> _ \n
+	resume:
+	< < "esac"))
+  "Insert a case/switch statement.  See `sh-feature'.")