[elpa] master ff7d773 136/433: (mmm-add-group): Made subclasses of a group private.

[Dmitry Gutov]

branch: master
commit ff7d773d2bf69879ed0c5a11635aa5eaa3ee96e4
Author: mas <mas>
Commit: mas <mas>

    (mmm-add-group): Made subclasses of a group private.
---
 mmm-vars.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/mmm-vars.el b/mmm-vars.el
index af519cf..7a144ab 100644
--- a/mmm-vars.el
+++ b/mmm-vars.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-vars.el,v 1.22 2000/07/29 17:28:07 mas Exp $
+;; Version: $Id: mmm-vars.el,v 1.23 2000/07/29 22:59:35 mas Exp $
 
 ;;{{{ GPL
 
@@ -232,9 +232,7 @@ See `mmm-global-mode'."
   "Add an element to `mmm-mode-ext-classes-alist', which see.
 That variable can now be directly modified, so this function is
 unnecessary. It probably won't go away, though."
-  (if (assq class mmm-classes-alist)
-      (add-to-list 'mmm-mode-ext-classes-alist (list mode ext class))
-    (signal 'mmm-invalid-submode-class (list class))))
+  (add-to-list 'mmm-mode-ext-classes-alist (list mode ext class)))
 
 ;;}}}
 ;;{{{ Key Bindings
@@ -513,8 +511,12 @@ the end of the submode region, and the end of the back 
delimiter.")
     (add-to-list 'mmm-classes-alist class)))
 
 (defun mmm-add-group (group classes)
-  "Add CLASSES and a group named GROUP containing them all."
-  (mmm-add-classes classes)
+  "Add CLASSES and a group named GROUP containing them all.
+The CLASSES are all made private, i.e. non-user-visible."
+  (mmm-add-classes (mapcar #'(lambda (class)
+                               (append class
+                                       '(:private t)))
+                           classes))
   (add-to-list 'mmm-classes-alist
                (list group :classes (mapcar #'first classes))))