From 68c2716c0a8a3e2725b67b69ea7bcef43982d411 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Sat, 10 Nov 2012 23:18:31 +0100 Subject: [PATCH] Rename *root-size-change* hook to *root-size-change-hook* --- src/clfswm.lisp | 2 +- src/package.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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") -- 2.11.4.GIT