Revision: 7088
Author:   ek.kato
Date:     Sun May 15 21:23:46 2011
Log:      * scm/im-custom.scm (annotation-filter-server-setting?) : Add
  an activity hook.

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

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

=======================================
--- /trunk/scm/im-custom.scm    Thu Jan  6 18:09:56 2011
+++ /trunk/scm/im-custom.scm    Sun May 15 21:23:46 2011
@@ -728,6 +728,13 @@
   (N_ "Custom filter connection setting")
   (N_ "long description will be here."))

+(custom-add-hook 'annotation-filter-server-setting?
+  'custom-activity-hooks
+  (lambda ()
+    (and enable-annotation?
+         (eq? annotation-agent 'filter))))
+
+
 (define-custom 'annotation-filter-unix-domain-socket-path "/path/of/socket"
   '(annotation filter)
   '(pathname regular-file)

Reply via email to