X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/f11199dbc2e6334efde4739df386ba8709151be4..a36054a367ed83c09cc4e53f4674249ba4cb5bde:/packages/company/company-ispell.el diff --git a/packages/company/company-ispell.el b/packages/company/company-ispell.el index 3e599f03e..1561beef1 100644 --- a/packages/company/company-ispell.el +++ b/packages/company/company-ispell.el @@ -26,8 +26,8 @@ ;;; Code: (require 'company) +(require 'cl-lib) (require 'ispell) -(eval-when-compile (require 'cl)) (defgroup company-ispell nil "Completion back-end using Ispell." @@ -56,7 +56,7 @@ If nil, use `ispell-complete-word-dict'." (defun company-ispell (command &optional arg &rest ignored) "`company-mode' completion back-end using Ispell." (interactive (list 'interactive)) - (case command + (cl-case command (interactive (company-begin-backend 'company-ispell)) (prefix (when (company-ispell-available) (company-grab-word)))