[uim-commit] r1126 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-08-05 12:58:00 -0700 (Fri, 05 Aug 2005)
New Revision: 1126

Modified:
   trunk/scm/custom.scm
Log:
* scm/custom.scm: This commit will fix the bug #3953.
  See https://bugs.freedesktop.org/show_bug.cgi?id=3953 for more details.
 -(custom-group-label): Added a NULL check.
 -(custom-group-desc):  Added a NULL check.


Modified: trunk/scm/custom.scm
===================================================================
--- trunk/scm/custom.scm	2005-08-05 19:44:01 UTC (rev 1125)
+++ trunk/scm/custom.scm	2005-08-05 19:58:00 UTC (rev 1126)
@@ -391,12 +391,16 @@
 ;; API
 (define custom-group-label
   (lambda (gsym)
-    (custom-group-rec-label (custom-group-rec gsym))))
+    (if (custom-group-rec gsym)
+	(custom-group-rec-label (custom-group-rec gsym))
+	(string-append "Error: " gsym "not found."))))
 
 ;; API
 (define custom-group-desc
   (lambda (gsym)
-    (custom-group-rec-desc (custom-group-rec gsym))))
+    (if (custom-group-rec gsym)
+	(custom-group-rec-desc (custom-group-rec gsym))
+	(string-append "Error: " gsym "not found."))))
 
 ;; API
 (define custom-group-subgroups