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

Added stop as a possible value for mc/cycle-looping-behaviour.

Browse Source 
Simply disables looping (no warning either).
This commit is contained in:
Marco Baringer 2012-10-12 16:56:01 +02:00
parent 19b1a83925
commit 038c9a7f03
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
mc-cycle-cursors.el
View File

@ -58,13 +58,15 @@
"What to do if asked to cycle beyond the last cursor or before the first cursor." "What to do if asked to cycle beyond the last cursor or before the first cursor."
:type '(radio (const :tag "Loop around to beginning/end of document." continue) :type '(radio (const :tag "Loop around to beginning/end of document." continue)
(const :tag "Warn and then loop around." warn) (const :tag "Warn and then loop around." warn)
(const :tag "Signal an error." error))) (const :tag "Signal an error." error)
(const :tag "Don't loop." stop)))
(defun mc/handle-loop-condition (error-message) (defun mc/handle-loop-condition (error-message)
(ecase mc/cycle-looping-behaviour (ecase mc/cycle-looping-behaviour
(error (error error-message)) (error (error error-message))
(warn (message error-message)) (warn (message error-message))
(continue nil))) (continue 'continue)
(stop 'stop)))
(defun mc/first-cursor-after (point) (defun mc/first-cursor-after (point)
"Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)." "Very similar to mc/furthest-cursor-before-point, but ignores (mark) and (point)."
@ -84,9 +86,10 @@
(cursors-in-order (sort* cursors-before-point '> :key 'mc/cursor-end))) (cursors-in-order (sort* cursors-before-point '> :key 'mc/cursor-end)))
(first cursors-in-order))) (first cursors-in-order)))
(defun mc/cycle (next-cursor fallback-cursor loop-message) (defun* mc/cycle (next-cursor fallback-cursor loop-message)
(when (null next-cursor) (when (null next-cursor)
(mc/handle-loop-condition loop-message) (when (eql 'stop (mc/handle-loop-condition loop-message))
(return-from mc/cycle nil))
(setf next-cursor fallback-cursor)) (setf next-cursor fallback-cursor))
(mc/create-fake-cursor-at-point) (mc/create-fake-cursor-at-point)
(mc/pop-state-from-overlay next-cursor) (mc/pop-state-from-overlay next-cursor)