Add mc/split-region

mc-mark-more.el

@@ -396,7 +396,7 @@ With zero ARG, skip the last one and mark next."
         (while (search-forward search end t)
           (push-mark (match-beginning 0))
           (mc/create-fake-cursor-at-point))
-        (let ((first (car (last (mc/all-fake-cursors)))))
+        (let ((first (mc/furthest-cursor-before-point)))
           (if (not first)
               (error "Search failed for %S" search)
             (mc/pop-state-from-overlay first)))
@@ -704,6 +704,30 @@ already there."
   (save-excursion
     (not (null (sgml-get-context)))))
 
+(defun mc/split-region (beg end search)
+  "Split region each time SEARCH occurs in the buffer.
+
+This can be thought of as an inverse to `mc/mark-all-in-region'."
+  (interactive "r\nsSplit on: ")
+  (let ((case-fold-search nil))
+    (if (string= search "")
+        (user-error "Empty search term")
+      (progn
+        (mc/remove-fake-cursors)
+        (goto-char beg)
+        (push-mark beg)
+        (while (search-forward search end t)
+          (save-excursion
+            (goto-char (match-beginning 0))
+            (mc/create-fake-cursor-at-point))
+          (push-mark (match-end 0)))
+        (unless (= (point) end)
+          (goto-char end))
+        (mc/create-fake-cursor-at-point)
+        (if (> (mc/num-cursors) 1)
+            (multiple-cursors-mode 1)
+          (multiple-cursors-mode 0))))))
+
 (provide 'mc-mark-more)
 
 ;;; mc-mark-more.el ends here