diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2018-03-10T09·28+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2018-03-10T09·28+0800 |
| commit | 3f6c609a2b1580d77a9863e205718cbba3872bcb (patch) | |
| tree | 1c482e4d6f610633953ff8db19b3160f76e7179a /exwm-input.el | |
| parent | cb8706f91c1c343a9bf392c9deaadc0c42d4dba6 (diff) | |
Fix regressions
(exwm-init): Do not signal an error on startup. * exwm-floating.el (exwm-floating-toggle-floating): * exwm-input (exwm-input-send-next-key) (exwm-input-send-simulation-key): * exwm-layout (exwm-layout-set-fullscreen) (exwm-layout-unset-fullscreen, exwm-layout-toggle-fullscreen): Fix incorrect use of `cl-return-from'.
Diffstat (limited to 'exwm-input.el')
| -rw-r--r-- | exwm-input.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/exwm-input.el b/exwm-input.el index 6f96d71738..4c1ce00b12 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -745,7 +745,7 @@ EXWM will prompt for the key to send. This command can be prefixed to send multiple keys." (interactive "p") (unless (derived-mode-p 'exwm-mode) - (cl-return-from 'exwm-input-send-next-key)) + (cl-return-from exwm-input-send-next-key)) (when (> times 12) (setq times 12)) (let (key keys) (dotimes (i times) @@ -893,7 +893,7 @@ where both ORIGINAL-KEY and SIMULATED-KEY are key sequences." "Fake a key event according to the last input key sequence." (interactive "p") (unless (derived-mode-p 'exwm-mode) - (cl-return-from 'exwm-input-send-simulation-key)) + (cl-return-from exwm-input-send-simulation-key)) (let ((keys (gethash (this-single-command-keys) exwm-input--simulation-keys))) (dotimes (_ times) |