diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2016-03-08T05·01+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2016-03-08T05·01+0800 |
| commit | ac3f8098c7b8d87225a34e85fcac8996404d1d8d (patch) | |
| tree | 7136287b2fc872335dfd7ecf1af5e302a4ef198d | |
| parent | 1342fe1789184bb6b732d62bdb673139d44b83f0 (diff) | |
Use `cl-case' instead of `case'
| -rw-r--r-- | exwm-input.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/exwm-input.el b/exwm-input.el index 50ca3aef22c7..dc7f2b54ef0a 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" |