[clfswm-cvs] r301 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Thu Aug 26 15:26:11 2010
New Revision: 301

Log:
src/clfswm-keys.lisp (define-ungrab/grab): Remove debug test

Modified:
   clfswm/src/bindings.lisp
   clfswm/src/clfswm-keys.lisp

Modified: clfswm/src/bindings.lisp
==============================================================================
--- clfswm/src/bindings.lisp	(original)
+++ clfswm/src/bindings.lisp	Thu Aug 26 15:26:11 2010
@@ -68,10 +68,6 @@
   ;; Second mode
   (define-main-key (#\t :mod-1) 'second-key-mode)
   (define-main-key ("less" :control) 'second-key-mode)
-  (define-main-key ("Z" :control) 'second-key-mode)
-  ;;(define-main-key (#\< :control) 'second-key-mode)
-  ;;(define-main-key (#x003c :control) 'second-key-mode)
-  ;;(define-main-key (94 :control) 'second-key-mode)
   ;; Bind or jump functions
   (define-main-key ("1" :mod-1) 'bind-or-jump 1)
   (define-main-key ("2" :mod-1) 'bind-or-jump 2)

Modified: clfswm/src/clfswm-keys.lisp
==============================================================================
--- clfswm/src/clfswm-keys.lisp	(original)
+++ clfswm/src/clfswm-keys.lisp	Thu Aug 26 15:26:11 2010
@@ -155,7 +155,6 @@
 						      (unless found
 							(setf modifiers (add-in-state modifiers :shift))))
 						    ret-keycode)))))
-			  (dbg key modifiers keycode)
 			  (if keycode
 			      (if (consp keycode)
 				  (dolist (kc (remove-duplicates keycode))