[clfswm-cvs] r390 - clfswm/contrib

[Philippe Brochard]

Author: pbrochard
Date: Wed Nov 17 16:24:21 2010
New Revision: 390

Log:
contrib/osd.lisp: Display doc before calling associated function

Modified:
   clfswm/contrib/osd.lisp

Modified: clfswm/contrib/osd.lisp
==============================================================================
--- clfswm/contrib/osd.lisp	(original)
+++ clfswm/contrib/osd.lisp	Wed Nov 17 16:24:21 2010
@@ -43,8 +43,8 @@
 (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 (first function) (append args (second function)))
       (display-doc function code state)
+      (apply (first function) (append args (second function)))
       t)))
 
 ;;; CONFIG - Screen size