Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 13:07:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Use cl-case' instead of case'

Browse source
This commit is contained in:
Chris Feng 2016-03-08 13:01:05 +08:00
parent 1342fe1789
commit ac3f8098c7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
exwm-input.el
View file

@ -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) (defun exwm-input--update-mode-line (id)
"Update the propertized `mode-line-process' for window ID." "Update the propertized `mode-line-process' for window ID."
(let (help-echo cmd mode) (let (help-echo cmd mode)
(case exwm--on-KeyPress (cl-case exwm--on-KeyPress
((exwm-input--on-KeyPress-line-mode) ((exwm-input--on-KeyPress-line-mode)
(setq mode "line" (setq mode "line"
help-echo "mouse-1: Switch to char-mode" help-echo "mouse-1: Switch to char-mode"