From cb93501ec7978d0eba2df8d75723192d2449880f Mon Sep 17 00:00:00 2001 From: Vedang Manerikar Date: Mon, 22 Mar 2021 13:05:47 +0530 Subject: [PATCH] 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)