[clfswm-cvs] r34 - clfswm

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Wed Mar 12 12:16:57 2008
New Revision: 34

Modified:
   clfswm/clfswm-keys.lisp
Log:
Fix a glitch in clfswm-keys.lisp - Thanks Xavier


Modified: clfswm/clfswm-keys.lisp
==============================================================================
--- clfswm/clfswm-keys.lisp	(original)
+++ clfswm/clfswm-keys.lisp	Wed Mar 12 12:16:57 2008
@@ -1,7 +1,7 @@
 ;;; --------------------------------------------------------------------------
 ;;; CLFSWM - FullScreen Window Manager
 ;;;
-;;; #Date#: Tue Mar 11 12:23:23 2008
+;;; #Date#: Wed Mar 12 18:12:54 2008
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;; Documentation: Keys functions definition
@@ -148,18 +148,12 @@
 
 
 
-(defun funcall-key-from-code (hash-table-key code state &optional args)
+(defun funcall-key-from-code (hash-table-key code state &rest args)
   (let ((function (find-key-from-code hash-table-key code state)))
     (when function
       (apply function args)
       t)))
 
-       
-  (labels 
-    (cond ((from-code))
-	  ((from-char))
-	  ((from-string)))))
-
 
 
 (defun funcall-button-from-code (hash-table-key code state window root-x root-y