[clfswm-cvs] r128 - clfswm/src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sat May 17 07:18:04 2008
New Revision: 128

Modified:
   clfswm/src/clfswm-nw-hooks.lisp
Log:
leave-focus-frame-nw-hook: remove an ignore declaration

Modified: clfswm/src/clfswm-nw-hooks.lisp
==============================================================================
--- clfswm/src/clfswm-nw-hooks.lisp	(original)
+++ clfswm/src/clfswm-nw-hooks.lisp	Sat May 17 07:18:04 2008
@@ -172,7 +172,6 @@
 ;;; Open a new window but leave the focus on the current child
 (defun leave-focus-frame-nw-hook (frame window)
   "Open the next window in the current frame and leave the focus on the current child"
-  (declare (ignore frame))
   (leave-if-not-frame *current-child*)
   (when (frame-p *current-child*)
     (pushnew window (frame-child *current-child*))