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

Enable to specify search word in mc/mark-all-in-region

Browse Source
This commit is contained in:
uk-ar 2015-04-04 06:29:46 +09:00
parent cec48cc78f
commit 72b4bf3911
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mc-mark-more.el
View File

@ -271,10 +271,10 @@ With zero ARG, skip the last one and mark next."
(mc/mark-all-like-this))) (mc/mark-all-like-this)))
;;;###autoload ;;;###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" "Find and mark all the parts in the region matching the given search"
(interactive "r") (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)) (case-fold-search nil))
(if (string= search "") (if (string= search "")
(message "Mark aborted") (message "Mark aborted")