From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 12 May 2024 19:33:37 +0000 (+0100)
Subject: el/mdw-multiple-cursors.el: Use the `cl-' names for CL-ish functions.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/51f9321437187d13856fe0fd0a5332cb6bcb3d43?ds=inline

el/mdw-multiple-cursors.el: Use the `cl-' names for CL-ish functions.
---

diff --git a/el/mdw-multiple-cursors.el b/el/mdw-multiple-cursors.el
index c384a4b..d5d77a3 100644
--- a/el/mdw-multiple-cursors.el
+++ b/el/mdw-multiple-cursors.el
@@ -27,6 +27,8 @@
 ;; (autoload 'mdw-multiple-cursors-keymap "mdw-multiple-cursors.el"
 ;;   "A keymap for Magnar Sveen's awesome multiple-cursors." nil 'keymap)
 
+(require 'cl-lib)
+
 ;;;--------------------------------------------------------------------------
 ;;; Some machinery for omitting key prefixes.
 
@@ -79,7 +81,7 @@      (defun ,name ,args
 ;;;--------------------------------------------------------------------------
 ;;; The multiple-cursors key bindings.
 
-(eval-when (load eval)
+(cl-eval-when (load eval)
   (require 'multiple-cursors))
 
 (defvar mdw-multiple-cursors-keymap (make-sparse-keymap)