ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 05:03:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add mc/split-region

Browse Source
This commit is contained in:
Matus Goljer 2018-09-13 15:16:21 +02:00
parent 6a7c3c0853
commit 340ff672a5
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
mc-mark-more.el
View File

@ -704,6 +704,30 @@ already there."
(save-excursion (save-excursion
(not (null (sgml-get-context))))) (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) (provide 'mc-mark-more)
;;; mc-mark-more.el ends here ;;; mc-mark-more.el ends here