about summary refs log tree commit diff
path: root/exwm-input.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2018-03-10T09·28+0800
committerChris Feng <chris.w.feng@gmail.com>2018-03-10T09·28+0800
commit3f6c609a2b1580d77a9863e205718cbba3872bcb (patch)
tree1c482e4d6f610633953ff8db19b3160f76e7179a /exwm-input.el
parentcb8706f91c1c343a9bf392c9deaadc0c42d4dba6 (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.el4
1 files changed, 2 insertions, 2 deletions
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)