diff options
Diffstat (limited to 'mmm/mmm-mason.el')
-rw-r--r-- | mmm/mmm-mason.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/mmm/mmm-mason.el b/mmm/mmm-mason.el index 3640726d..a0f57387 100644 --- a/mmm/mmm-mason.el +++ b/mmm/mmm-mason.el @@ -2,7 +2,7 @@ ;; 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 @@ -96,6 +96,8 @@ Saves the name of the tag matched.") :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) @@ -161,6 +163,13 @@ Saves the name of the tag matched.") (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) |