Merge pull request #192 from uk-ar/add_search_word

Enable to specify search word in mc/mark-all-in-region
This commit is contained in:
Magnar Sveen 2015-05-24 11:19:34 +02:00
commit 66b1127489

View File

@ -275,10 +275,10 @@ 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 &optional search)
"Find and mark all the parts in the region matching the given search"
(interactive "r")
(let ((search (read-from-minibuffer "Mark all in region: "))
(let ((search (or search (read-from-minibuffer "Mark all in region: ")))
(case-fold-search nil))
(if (string= search "")
(message "Mark aborted")