emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/multiple-cursors cb93501 432/434: Minor backward compatibi


From: ELPA Syncer
Subject: [nongnu] elpa/multiple-cursors cb93501 432/434: Minor backward compatibility fix to remove warning
Date: Sat, 7 Aug 2021 09:21:15 -0400 (EDT)

branch: elpa/multiple-cursors
commit cb93501ec7978d0eba2df8d75723192d2449880f
Author: Vedang Manerikar <ved.manerikar@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]