- (case command
- ('interactive (company-begin-backend 'company-ispell))
- ('prefix (when (company-ispell-available)
- (company-grab-word)))
- ('candidates (lookup-words arg (or company-ispell-dictionary
- ispell-complete-word-dict)))
- ('sorted t)
- ('ignore-case t)))
+ (cl-case command
+ (interactive (company-begin-backend 'company-ispell))
+ (prefix (when (company-ispell-available)
+ (company-grab-word)))
+ (candidates (lookup-words arg (or company-ispell-dictionary
+ ispell-complete-word-dict)))
+ (sorted t)
+ (ignore-case 'keep-prefix)))