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

Merge pull request #239 from ilohmar/dwim-mouse-select

Browse Source 
Extend mc/add-cursor-on-click to toggle fake cursors
This commit is contained in:
Magnar Sveen 2016-03-01 22:33:06 +01:00
commit 4c52fb1e56
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mc-mark-more.el
View File

@ -576,8 +576,9 @@ If the region is inactive or on a single line, it will behave like
(<= (point) end)))) (<= (point) end))))
;;;###autoload ;;;###autoload
(defun mc/add-cursor-on-click (event) (defun mc/toggle-cursor-on-click (event)
"Add a cursor where you click." "Add a cursor where you click, or remove a fake cursor that is
already there."
(interactive "e") (interactive "e")
(mouse-minibuffer-check event) (mouse-minibuffer-check event)
;; Use event-end in case called from mouse-drag-region. ;; Use event-end in case called from mouse-drag-region.
@ -589,9 +590,16 @@ If the region is inactive or on a single line, it will behave like
(if (numberp (posn-point position)) (if (numberp (posn-point position))
(save-excursion (save-excursion
(goto-char (posn-point position)) (goto-char (posn-point position))
(mc/create-fake-cursor-at-point))) (let ((existing (mc/last-fake-cursor-before (point))))
(if (and existing
(eq (overlay-get existing 'point) (point)))
(mc/remove-fake-cursor existing)
(mc/create-fake-cursor-at-point)))))
(mc/maybe-multiple-cursors-mode))) (mc/maybe-multiple-cursors-mode)))
;;;###autoload
(defalias 'mc/add-cursor-on-click 'mc/toggle-cursor-on-click)
;;;###autoload ;;;###autoload
(defun mc/mark-sgml-tag-pair () (defun mc/mark-sgml-tag-pair ()
"Mark the tag we're in and its pair for renaming." "Mark the tag we're in and its pair for renaming."