[elpa] master d1ed795 135/433: Added autoloading of submode classes.

[Dmitry Gutov]

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

    Added autoloading of submode classes.
---
 mmm-auto.el | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

diff --git a/mmm-auto.el b/mmm-auto.el
index 37514b1..54f8d48 100644
--- a/mmm-auto.el
+++ b/mmm-auto.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-auto.el,v 1.12 2000/06/30 20:54:58 mas Exp $
+;; Version: $Id: mmm-auto.el,v 1.13 2000/07/29 22:42:23 mas Exp $
 
 ;;{{{ GPL
 
@@ -62,7 +62,33 @@
 (require 'cl)
 (require 'mmm-vars)
 
-;;{{{ Autoloads
+;;{{{ Autoload Submode Classes
+
+(defvar mmm-autoloaded-classes
+  '((mason "mmm-mason" nil)
+    (embedded-css "mmm-sample" nil)
+    (html-js "mmm-sample" nil)
+    (here-doc "mmm-sample" nil)
+    (embperl "mmm-sample" nil)
+    (file-variables "mmm-sample" nil))
+  "Alist of submode classes autoloaded from files.
+Elements look like \(CLASS FILE PRIVATE) where CLASS is a submode
+class symbol, FILE is a string suitable for passing to `load', and
+PRIVATE is non-nil if the class is invisible to the user.  Classes can
+be added to this list with `mmm-autoload-class'.")
+
+(defun mmm-autoload-class (class file &optional private)
+  "Autoload submode class CLASS from file FILE.
+PRIVATE, if non-nil, means the class is user-invisible.  In general,
+private classes need not be autoloaded, since they will usually be
+invoked by a public class in the same file."
+  ;; Don't autoload already defined classes
+  (unless (assq class mmm-classes-alist)
+    (add-to-list 'mmm-autoloaded-classes
+                 (list class file private))))
+
+;;}}}
+;;{{{ Autoload Functions
 
 ;; To shut up the byte compiler.
 (eval-and-compile