ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2026-02-04 06:12:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #104 from mathrick/mark-all-dwim

Browse Source 
Add new command, mark-all-dwim
This commit is contained in:
Magnar Sveen
2013-09-06 12:57:31 -07:00
parent 68dfa461f1 ec4781394c
commit 65c0c0c6fe
5 changed files with 94 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
mc-mark-more.el
View File

@@ -419,6 +419,27 @@ With prefix, it behaves the same as original `mc/mark-all-like-this'"
(when (<= (mc/num-cursors) before)
(mc/mark-all-like-this))))))
(defun mc/mark-all-dwim (arg)
"Tries even harder to guess what you want to mark all of.
If the region is active and spans multiple lines, it will behave
as if `mc/mark-all-in-region'. With the prefix ARG, it will call
`mc/edit-lines' instead.
If the region is inactive or on a single line, it will behave like
`mc/mark-all-like-this-dwim'."
(interactive "P")
(if (and (use-region-p)
(not (> (mc/num-cursors) 1))
(not (= (line-number-at-pos (region-beginning))
(line-number-at-pos (region-end)))))
(if arg
(call-interactively 'mc/edit-lines)
(call-interactively 'mc/mark-all-in-region))
(progn
(setq this-command 'mc/mark-all-like-this-dwim)
(mc/mark-all-like-this-dwim arg))))
(defun mc--in-defun ()
(bounds-of-thing-at-point 'defun))