[elpa] externals/m-buffer 63a46e6732 063/115: m-buffer-in-match-p added.

[ELPA Syncer]

branch: externals/m-buffer
commit 63a46e6732b9626223ab74d59889d77b55d3af72
Author: Phillip Lord <phillip.lord@newcastle.ac.uk>
Commit: Phillip Lord <phillip.lord@newcastle.ac.uk>

    m-buffer-in-match-p added.
---
 m-buffer.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/m-buffer.el b/m-buffer.el
index 4ffaca1ec9..9899f171a5 100644
--- a/m-buffer.el
+++ b/m-buffer.el
@@ -363,7 +363,14 @@ in M."
          m))
     m))
 
-
+(defun m-buffer-in-match-p (matches position)
+  "Returns true is any of MATCHES contain POSITION."
+  (-any?
+   (lambda (match)
+     (and
+      (<= (car match) position)
+      (<= position (cadr match))))
+   matches))
 
 ;; marker/position utility functions
 (defun m-buffer-nil-marker (markers)