[elpa] master b8c18c2 227/433: Defined new submode placement error conditions.

[Dmitry Gutov]

branch: master
commit b8c18c20097ee9570591d9e260c941d873005291
Author: viritrilbia <viritrilbia>
Commit: viritrilbia <viritrilbia>

    Defined new submode placement error conditions.
---
 mmm-vars.el | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/mmm-vars.el b/mmm-vars.el
index 1a30b65..ad9f0f7 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.46 2001/02/23 22:44:28 viritrilbia Exp $
+;; Version: $Id: mmm-vars.el,v 1.47 2001/05/14 22:39:18 viritrilbia Exp $
 
 ;;{{{ GPL
 
@@ -53,13 +53,22 @@
 
 ;; Signalled when we try to put a submode region inside one where it
 ;; isn't meant to go.
-(put 'mmm-invalid-parent
+(put 'mmm-subregion-invalid-parent
      'error-conditions
-     '(mmm-invalid-parent mmm-error error))
-(put 'mmm-invalid-parent
+     '(mmm-subregion-invalid-parent mmm-error error))
+(put 'mmm-subregion-invalid-parent
      'error-message
      "Invalid submode region parent")
 
+;; Signalled when a submode region thinks it should start inside one
+;; other submode and end in a different one.
+(put 'mmm-subregion-crosses-parents
+     'error-conditions
+     '(mmm-subregion-crosses-parents mmm-error error))
+(put 'mmm-subregion-crosses-parents
+     'error-message
+     "Submode region crosses parents")
+
 ;; Signalled when we try to apply a submode class that doesn't exist.
 (put 'mmm-invalid-submode-class
      'error-conditions