[elpa] master 7374d58 193/433: Added ePerl submode class.

[Dmitry Gutov]

branch: master
commit 7374d584e68b578a48aaddcf37209ee0b215c7d4
Author: mas <mas>
Commit: mas <mas>

    Added ePerl submode class.
---
 mmm-sample.el | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/mmm-sample.el b/mmm-sample.el
index 5dba64e..5915994 100644
--- a/mmm-sample.el
+++ b/mmm-sample.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <m...@kurukshetra.cjb.net>
-;; Version: $Id: mmm-sample.el,v 1.12 2001/01/11 01:41:12 mas Exp $
+;; Version: $Id: mmm-sample.el,v 1.13 2001/01/11 01:41:30 mas Exp $
 
 ;;{{{ GPL
 
@@ -162,6 +162,26 @@ and MODE is a major mode function symbol.")
     )))
 
 ;;}}}
+;;{{{ ePerl
+
+(mmm-add-group
+ 'eperl
+ '((eperl-code
+    :submode perl
+    :face mmm-code-submode-face
+    :front "<:"
+    :back "_?:>"
+    :insert ((?p eperl-code nil @ "<:" @ " " _ " " @ ":>" @)
+             (?: eperl-code ?p . nil)
+             (?_ eperl-code_ nil @ "<:" @ " " _ " " @ "_:>" @)))
+   (eperl-expr
+    :submode perl
+    :face mmm-output-submode-face
+    :front "<:="
+    :back ":>"
+    :insert ((?= eperl-expr nil @ "<:=" @ " " _ " " @ ":>" @)))))
+
+;;}}}
 ;;{{{ File Variables
 
 ;; This submode class puts file local variable values, specified with