branch: master
commit 961a127ec44f957f75a1680e6a630c6c0739440d
Author: viritrilbia <viritrilbia>
Commit: viritrilbia <viritrilbia>
Prevent bounds from going outside buffer (XEmacs complains)
---
mmm-region.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/mmm-region.el b/mmm-region.el
index 7c1b87d..440d650 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2000 by Michael Abraham Shulman
;; Author: Michael Abraham Shulman <[email protected]>
-;; Version: $Id: mmm-region.el,v 1.36 2003/03/09 17:04:03 viritrilbia Exp $
+;; Version: $Id: mmm-region.el,v 1.37 2003/03/19 14:26:45 viritrilbia Exp $
;;{{{ GPL
@@ -65,7 +65,9 @@ See `mmm-included-p' for the values of TYPE."
#'(lambda (ovl)
(and (overlay-get ovl 'mmm)
(mmm-included-p ovl pos type)))
- (overlays-in (1- pos) (1+ pos)))))
+ ;; XEmacs complains about positions outside the buffer
+ (overlays-in (max (1- pos) (point-min))
+ (min (1+ pos) (point-max))))))
(defun mmm-included-p (ovl pos &optional type)
"Return true if the overlay OVL contains POS.
