[elpa] master 20bdf05 010/433: Changed insertion key of <%doc> to `d' and added insertion of %#

[Dmitry Gutov]

branch: master
commit 20bdf05f2b0a3b5119d537191a6ea3851099d57a
Author: mas <mas>
Commit: mas <mas>

    Changed insertion key of <%doc> to `d' and added insertion of %#
    comment lines with insertion keys `#' and `3'.
---
 mmm-mason.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/mmm-mason.el b/mmm-mason.el
index f55d214..bd367a0 100644
--- a/mmm-mason.el
+++ b/mmm-mason.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <m...@kurukshetra.cjb.net>
-;; Version: $Id: mmm-mason.el,v 1.5 2000/05/10 05:28:18 mas Exp $
+;; Version: $Id: mmm-mason.el,v 1.6 2000/05/10 06:24:18 mas Exp $
 
 ;;{{{ GPL
 
@@ -130,9 +130,8 @@ Saves the name of the tag matched.")
     :front "<%doc>"
     :back "</%doc>"
     :face nil
-    :insert ((?# mason-<%doc> nil @ "<%doc>" @ "\n"
-                 _ "\n" @ "</%doc>" @)
-             (?3 mason-<%doc> ?# . nil)))
+    :insert ((?d mason-<%doc> nil @ "<%doc>" @ "\n"
+                 _ "\n" @ "</%doc>" @)))
    (mason-perl
     :submode ,mmm-mason-perl-mode
     :front ,mmm-mason-perl-tags-regexp
@@ -176,7 +175,10 @@ Saves the name of the tag matched.")
     :front "^%"
     :back "\n"
     :insert ((return mason-%-line nil (mmm-mason-start-line)
-                     @ "%" @ " " _ @ '(mmm-mason-end-line) "\n" @)))))
+                     @ "%" @ " " _ @ '(mmm-mason-end-line) "\n" @)
+             (?# mason-%#-comment nil (mmm-mason-start-line)
+                 @ "%" @ "# " _ @ '(mmm-mason-end-line) "\n" @)
+             (?3 mason-%#-comment ?# . nil)))))
 
 ;;}}}
 ;;{{{ One-line Sections