[uim-commit] r1127 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-08-05 13:04:08 -0700 (Fri, 05 Aug 2005)
New Revision: 1127

Modified:
   trunk/scm/custom.scm
   trunk/scm/im-custom.scm
Log:
* scm/custom.scm:
 -(custom-group-label, custom-group-desc): Changed error messages a bit.

* scm/im-custom.scm: Added a new custom group 'preedit'.


Modified: trunk/scm/custom.scm
===================================================================
--- trunk/scm/custom.scm	2005-08-05 19:58:00 UTC (rev 1126)
+++ trunk/scm/custom.scm	2005-08-05 20:04:08 UTC (rev 1127)
@@ -393,14 +393,14 @@
   (lambda (gsym)
     (if (custom-group-rec gsym)
 	(custom-group-rec-label (custom-group-rec gsym))
-	(string-append "Error: " gsym "not found."))))
+	(string-append "Error: " gsym " not found."))))
 
 ;; API
 (define custom-group-desc
   (lambda (gsym)
     (if (custom-group-rec gsym)
 	(custom-group-rec-desc (custom-group-rec gsym))
-	(string-append "Error: " gsym "not found."))))
+	(string-append "Error: " gsym " not found."))))
 
 ;; API
 (define custom-group-subgroups

Modified: trunk/scm/im-custom.scm
===================================================================
--- trunk/scm/im-custom.scm	2005-08-05 19:58:00 UTC (rev 1126)
+++ trunk/scm/im-custom.scm	2005-08-05 20:04:08 UTC (rev 1127)
@@ -376,6 +376,10 @@
 		     (_ "XIM settings")
 		     (_ "long description will be here."))
 
+(define-custom-group 'preedit
+		     (_ "Preedit settings of XIM")
+		     (_ "long description will be here."))
+
 (define-custom 'uim-xim-use-xft-font? #f
   '(xim preedit)
   '(boolean)