branch: externals/window-commander
commit 94473af49e535a8a1012490fe63cabe42507a77f
Author: Daniel Semyonov <[email protected]>
Commit: Daniel Semyonov <[email protected]>
* window-commander.el (wincom-run-window-command): Fix exit function
---
window-commander.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/window-commander.el b/window-commander.el
index bc178050f7..e13d271081 100644
--- a/window-commander.el
+++ b/window-commander.el
@@ -330,12 +330,11 @@ exit."
(frame-toggle-on-screen-keyboard nil nil))
(run-hooks 'wincom-before-command-hook)
(setq this-command fun)
- (set-transient-map wincom--id-map
- (lambda ()
- (and set (buffer-live-p b)
- (with-current-buffer b
- (set-text-conversion-style s)))
- (run-hooks 'wincom-after-command-hook)))))
+ (set-transient-map wincom--id-map nil
+ `(lambda ()
+ (and ',set (buffer-live-p ,b)
+ (with-current-buffer ,b (funcall ',set ',s)))
+ (run-hooks 'wincom-after-command-hook)))))
(defmacro wincom-define-window-command (name args &rest body)
"Define NAME as a window command with DOCSTRING as its documentation string.
