Removed CL case statement from lambda, because it needs CL at run-time.

diff --git a/company.el b/company.el
index e5c81dc075f99d85391515cc309103c0a4149e81..b689778021826c99e5bdd540cab69bb2798f7b9f 100644 (file)
--- a/company.el
+++ b/company.el
@@ -1347,12 +1347,14 @@ Example:
    (let ((start (- (point) (or prefix-length 0))))
      (setq company-begin-with-marker (copy-marker (point) t))
      `(lambda (command &optional arg &rest ignored)
-        (case command
-          ('prefix (when (equal (point)
-                                (marker-position company-begin-with-marker))
-                     (buffer-substring ,start (point))))
-          ('candidates (all-completions arg ',candidates))
-          ('require-match ,require-match))))
+        (cond
+         ((eq command 'prefix)
+          (when (equal (point) (marker-position company-begin-with-marker))
+            (buffer-substring ,start (point))))
+         ((eq command 'candidates)
+          (all-completions arg ',candidates))
+         ((eq command 'require-match)
+          ,require-match))))
    callback))
 
 ;;; pseudo-tooltip ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;