From 24512f7a3c7fecd92a3bc54a25f96d3b781d7714 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Sat, 7 May 2011 10:04:59 +0200 Subject: [PATCH] src/clfswm-layout.lisp (update-layout-managed-children-position): New function. --- src/bindings-second-mode.lisp | 2 +- src/clfswm-util.lisp | 5 +++++ 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/bindings-second-mode.lisp b/src/bindings-second-mode.lisp index 6efb573..2fb219d 100644 --- a/src/bindings-second-mode.lisp +++ b/src/bindings-second-mode.lisp @@ -93,7 +93,7 @@ (define-second-key ("l") 'open-frame-fill-menu) (define-second-key ("r") 'open-frame-resize-menu) (define-second-key ("x") 'update-layout-managed-children-position) - ;;(define-second-key (#\g :control) 'stop-all-pending-actions) + (define-second-key (#\g :control) 'stop-all-pending-actions) (define-second-key ("i") 'identify-key) (define-second-key ("colon") 'eval-from-query-string) (define-second-key ("exclam") 'run-program-from-query-string) diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp index c4dbd3e..6375125 100644 --- a/src/clfswm-util.lisp +++ b/src/clfswm-util.lisp @@ -71,6 +71,11 @@ (char= (char rep 0) #\Y)))) +(error "stop-all-pending-actions: TODO") +(defun stop-all-pending-actions () + "Stop all pending actions" + (error "TODO")) + (defun rename-current-child () -- 2.11.4.GIT