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

Abort immediately when empty search pattern is passed to 'mc/mark-all-in-region'

Browse Source
This commit is contained in:
Maciej Katafiasz 2013-09-05 23:53:59 +02:00
parent 5e879f9b5c
commit 8dfe725c4f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mc-mark-more.el
View File

@ -263,15 +263,16 @@ With zero ARG, skip the last one and mark next."
(mc/mark-all-like-this)))
;;;###autoload
(defun mc/mark-all-in-region (beg end)
(defun* mc/mark-all-in-region (beg end)
"Find and mark all the parts in the region matching the given search"
(interactive "r")
(let ((search (read-from-minibuffer "Mark all in region: "))
(case-fold-search nil))
(when (string= search "")
(return-from mc/mark-all-in-region nil))
(mc/remove-fake-cursors)
(goto-char beg)
(while (and (not (string= search ""))
(search-forward search end t))
(while (search-forward search end t)
(push-mark (match-beginning 0))
(mc/create-fake-cursor-at-point))
(let ((first (mc/furthest-cursor-before-point)))