return-from should be cl-return-from

This commit is contained in:
Steve Purcell 2020-10-24 13:01:21 +13:00
parent 7763f4f9d7
commit 1f3ccfbcd2

View File

@ -88,7 +88,7 @@
(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))
(cl-return-from mc/cycle nil))
(setf next-cursor fallback-cursor))
(mc/create-fake-cursor-at-point)
(mc/pop-state-from-overlay next-cursor)