Revision: 7130
Author:   ek.kato
Date:     Fri Jun  3 00:21:19 2011
Log:      * scm/im-custom.scm (notify-agent) : Add custom-set-hooks.

http://code.google.com/p/uim/source/detail?r=7130

Modified:
 /trunk/scm/im-custom.scm

=======================================
--- /trunk/scm/im-custom.scm    Mon May 23 23:22:35 2011
+++ /trunk/scm/im-custom.scm    Fri Jun  3 00:21:19 2011
@@ -608,6 +608,13 @@
   (N_ "Notify agent name")
   (N_ "long description will be here."))

+(custom-add-hook 'notify-agent
+                 'custom-set-hooks
+                 (lambda ()
+                  (if (symbol-bound? 'uim-notify-load)
+                     (uim-notify-load (symbol->string
+                                        notify-agent)))))
+
 ;;
 ;; Http
 ;;

Reply via email to