Source

mmm-mode / mmm-mason.el

Diff from to

File mmm-mason.el

 
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
-;; Author: Michael Abraham Shulman <mas@kurukshetra.cjb.net>
+;; Author: Michael Abraham Shulman <viritrilbia@users.sourceforge.net>
 ;; Version: $Id$
 
 ;;{{{ GPL
     :front ,mmm-mason-perl-tags-regexp
     :back "</%~1>"
     :save-matches 1
+    :match-name "~1"
+    :save-name 1
     :insert ((?, mason-<%TAG> "Perl section: " @ "<%" str ">" @
                  ";\n" _ "\n" @ "</%" str ">" @)
              (?< mason-<%TAG> ?, . nil)
       (delete-char 1)))
 
 ;;}}}
+;;{{{ Set Mode Line
+
+(defun mmm-mason-set-mode-line ()
+  (setq mmm-buffer-mode-display-name "Mason"))
+(add-hook 'mmm-mason-class-hook 'mmm-mason-set-mode-line)
+
+;;}}}
 
 (provide 'mmm-mason)