Rename *root-size-change* hook to *root-size-change-hook*
authorPhilippe Brochard <pbrochard@common-lisp.net>
Sat, 10 Nov 2012 22:18:31 +0000 (10 23:18 +0100)
committerPhilippe Brochard <pbrochard@common-lisp.net>
Sat, 10 Nov 2012 22:18:31 +0000 (10 23:18 +0100)
src/clfswm.lisp
src/package.lisp

index a25ade0..3a31519 100644 (file)
       (place-frames-from-xinerama-infos)
       (finish-configuring-root)
       (show-all-children)
-      (call-hook *root-size-change*))))
+      (call-hook *root-size-change-hook*))))
 
 
 (defun error-handler (display error-key &rest key-vals &key asynchronous &allow-other-keys)
index 5ac92db..c3c495b 100644 (file)
@@ -216,7 +216,7 @@ It is particulary useful with CLISP/MIT-CLX.")
            "Hook executed on the main function entrance after
 loading configuration file and before opening the display.")
 
-(defconfig *root-size-change* nil 'Hook
+(defconfig *root-size-change-hook* nil 'Hook
            "Hook executed when the root size has changed for example when adding/removing a monitor")