[elpa] master c563b85 377/433: mmm-beginning-of-syntax: Don't consider overlays ending at point

[Dmitry Gutov]

branch: master
commit c563b859507e149f8525350867ef8713688635dd
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    mmm-beginning-of-syntax: Don't consider overlays ending at point
---
 mmm-region.el   |  2 +-
 tests/region.el | 12 ++++++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/mmm-region.el b/mmm-region.el
index 4239f9b..35bad1e 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -796,7 +796,7 @@ of the REGIONS covers START to STOP."
 
 (defun mmm-beginning-of-syntax ()
   (goto-char
-   (let ((ovl (mmm-overlay-at (point)))
+   (let ((ovl (mmm-overlay-at (point) 'beg))
          (func (get (or mmm-current-submode mmm-primary-mode)
                     'mmm-beginning-of-syntax-function)))
      (max (if ovl (overlay-start ovl) (point-min))
diff --git a/tests/region.el b/tests/region.el
new file mode 100644
index 0000000..50e2810
--- /dev/null
+++ b/tests/region.el
@@ -0,0 +1,12 @@
+(ert-deftest mmm-beginning-of-syntax-goes-to-outer-beginning ()
+  (ert-with-test-buffer nil
+    (let (mmm-mode-ext-classes-alist
+          mmm-parse-when-idle)
+      (insert "aaa [zz {x} zz] bbb")
+      (fundamental-mode)
+      (mmm-mode-on)
+      (mmm-ify-by-regexp 'text-mode "\\[" 0 "\\]" 0 nil)
+      (mmm-ify-by-regexp 'prog-mode "{" 0 "}" 0 nil)
+      (search-backward "}")
+      (mmm-beginning-of-syntax)
+      (should (looking-back "\\[" (1- (point)))))))