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 <[email protected]>
-;; 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)
