From 72b4bf3911cc18e87a80b2152a6f707d12f2b531 Mon Sep 17 00:00:00 2001 From: uk-ar Date: Sat, 4 Apr 2015 06:29:46 +0900 Subject: [PATCH] Enable to specify search word in mc/mark-all-in-region --- mc-mark-more.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mc-mark-more.el b/mc-mark-more.el index 45a87fc..445f6d3 100644 --- a/mc-mark-more.el +++ b/mc-mark-more.el @@ -271,10 +271,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")