From 3f6c609a2b1580d77a9863e205718cbba3872bcb Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Sat, 10 Mar 2018 17:28:43 +0800 Subject: 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'. --- exwm-input.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'exwm-input.el') diff --git a/exwm-input.el b/exwm-input.el index 6f96d7173803..4c1ce00b1200 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) -- cgit 1.4.1