[clfswm-cvs] r341 - in clfswm: . src
Philippe Brochard
pbrochard at common-lisp.net
Sat Oct 2 15:56:54 UTC 2010
Author: pbrochard
Date: Sat Oct 2 11:56:54 2010
New Revision: 341
Log:
src/clfswm-util.lisp (bind-on-slot): Add an optional parameter to bind the current child from the configuration file.
Modified:
clfswm/ChangeLog
clfswm/src/clfswm-util.lisp
Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog (original)
+++ clfswm/ChangeLog Sat Oct 2 11:56:54 2010
@@ -1,3 +1,8 @@
+2010-10-02 Philippe Brochard <pbrochard at common-lisp.net>
+
+ * src/clfswm-util.lisp (bind-on-slot): Add an optional parameter
+ to bind the current child from the configuration file.
+
2010-10-01 Philippe Brochard <pbrochard at common-lisp.net>
* src/clfswm-nw-hooks.lisp (absorb-window-nw-hook): Absorb new
Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp (original)
+++ clfswm/src/clfswm-util.lisp Sat Oct 2 11:56:54 2010
@@ -693,9 +693,9 @@
;;; Bind or jump functions
(let ((key-slots (make-array 10 :initial-element nil))
(current-slot 1))
- (defun bind-on-slot ()
+ (defun bind-on-slot (&optional (slot current-slot))
"Bind current child to slot"
- (setf (aref key-slots current-slot) *current-child*))
+ (setf (aref key-slots slot) *current-child*))
(defun remove-binding-on-slot ()
"Remove binding on slot"
More information about the clfswm-cvs
mailing list