[elpa] master f0e34d0 185/433: (mmm-apply-class): Rearranged parameters so faces actually work.

[Dmitry Gutov]

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

    (mmm-apply-class): Rearranged parameters so faces actually work.
---
 mmm-class.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/mmm-class.el b/mmm-class.el
index 51bf1f7..2fcdaa9 100644
--- a/mmm-class.el
+++ b/mmm-class.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-class.el,v 1.11 2000/08/24 22:59:38 mas Exp $
+;; Version: $Id: mmm-class.el,v 1.12 2000/09/29 20:43:10 mas Exp $
 
 ;;{{{ GPL
 
@@ -73,12 +73,15 @@ Creates a new parameter if one is not present."
 
 (defun* mmm-apply-class
     (class &optional (start (point-min)) (stop (point-max)) face)
-  "Apply the submode class CLASS from START to STOP in FACE."
+  "Apply the submode class CLASS from START to STOP in FACE.
+If FACE is nil, the face for CLASS is used, or the default face if
+none is specified by CLASS."
   ;; The "special" class t means do nothing. It is used to turn on
   ;; MMM Mode without applying any classes.
   (unless (eq class t)
-    (apply #'mmm-ify :start start :stop stop :face face
-           (mmm-get-class-spec class))))
+    (apply #'mmm-ify :start start :stop stop
+           (append (mmm-get-class-spec class)
+                  (list :face face)))))
 
 (defun* mmm-apply-classes
     (classes &key (start (point-min)) (stop (point-max)) face)