From 2ad315e33ddce97458df6c413f745a244bd95144 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Thu, 1 May 2003 14:00:48 +0000
Subject: [PATCH] added option-type binding-list

---
 src/utils.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/utils.scm b/src/utils.scm
index a272bba..24f7a9d 100644
--- a/src/utils.scm
+++ b/src/utils.scm
@@ -162,7 +162,7 @@
 (define-enumerated-type option-type :option-type
   option-type? option-types option-type-name option-type-index
   (int number inexact exact string symbol font color colors
-       boolean symbol-list keys keys-list sexp))
+       boolean symbol-list keys keys-list sexp binding-list))
 
 (define-syntax define-options-spec
   (syntax-rules
@@ -213,6 +213,13 @@
 		def)))
      ((eq? type (option-type sexp))
       def)
+     ((eq? type (option-type binding-list))
+      (and (check def list?)
+	   (map (lambda (b)
+		  (let ((k (allocate-option dpy colormap name
+					    (option-type keys) (car b))))
+		    (cons k (cdr b))))
+		def)))
      (else (error "option type not implemented" name type)))))
 
 ;; *** keys utilities ************************************************