branch: elpa/multiple-cursors
commit cb93501ec7978d0eba2df8d75723192d2449880f
Author: Vedang Manerikar <[email protected]>
Commit: Magnar Sveen <[email protected]>
Minor backward compatibility fix to remove warning
This removes the deprecation warning around `return-from'
---
mc-cycle-cursors.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/mc-cycle-cursors.el b/mc-cycle-cursors.el
index 85af352..08178eb 100644
--- a/mc-cycle-cursors.el
+++ b/mc-cycle-cursors.el
@@ -88,7 +88,11 @@
(cl-defun mc/cycle (next-cursor fallback-cursor loop-message)
(when (null next-cursor)
(when (eql 'stop (mc/handle-loop-condition loop-message))
- (return-from mc/cycle nil))
+ (cond
+ ((fboundp 'cl-return-from)
+ (cl-return-from mc/cycle nil))
+ ((fboundp 'return-from)
+ (return-from mc/cycle nil))))
(setf next-cursor fallback-cursor))
(mc/create-fake-cursor-at-point)
(mc/pop-state-from-overlay next-cursor)
