From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Sat, 10 Nov 2012 22:18:31 +0000 (+0100)
Subject: Rename *root-size-change* hook to *root-size-change-hook*
X-Git-Tag: R-1212~12
X-Git-Url: https://repo.or.cz/w/clfswm.git/commitdiff_plain/68c2716c0a8a3e2725b67b69ea7bcef43982d411

Rename *root-size-change* hook to *root-size-change-hook*
---

diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index a25ade0..3a31519 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -157,7 +157,7 @@
       (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)
diff --git a/src/package.lisp b/src/package.lisp
index 5ac92db..c3c495b 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -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")