From ac3f8098c7b8d87225a34e85fcac8996404d1d8d Mon Sep 17 00:00:00 2001
From: Chris Feng <chris.w.feng@gmail.com>
Date: Tue, 8 Mar 2016 13:01:05 +0800
Subject: [PATCH] Use `cl-case' instead of `case'

---
 exwm-input.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exwm-input.el b/exwm-input.el
index 50ca3aef2..dc7f2b54e 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -321,7 +321,7 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.")
 (defun exwm-input--update-mode-line (id)
   "Update the propertized `mode-line-process' for window ID."
   (let (help-echo cmd mode)
-    (case exwm--on-KeyPress
+    (cl-case exwm--on-KeyPress
       ((exwm-input--on-KeyPress-line-mode)
        (setq mode "line"
              help-echo "mouse-1: Switch to char-mode"