(define (display-min-keycode display)
  (%display-min-keycode (display-Xdisplay display)))

(import-lambda-definition %display-min-keycode (Xdisplay)
  "scx_Display_Min_Keycode")

(define (display-max-keycode display)
  (%display-max-keycode (display-Xdisplay display)))

(import-lambda-definition %display-max-keycode (Xdisplay)
  "scx_Display_Max_Keycode")

(define (display-keysyms-per-keycode display)
  (%display-keysyms-per-keycode (display-Xdisplay display)))

(import-lambda-definition %display-keysyms-per-keycode (Xdisplay)
  "scx_Display_Keysyms_Per_Keycode")

(define (string->keysym string)
  (%string->keysym (if (symbol? string)
		       (symbol->string string)
		       string)))

(import-lambda-definition %string->keysym (s)
  "scx_String_To_Keysym")

(define (keysym->string keysym)
  (%keysym->string keysym))

(import-lambda-definition %keysym->string (k)
  "scx_Keysym_To_String")

(define (keycode->keysym display keycode index)
  (%keycode->keysym (display-Xdisplay display)
		    keycode index))

(import-lambda-definition %keycode->keysym (Xdisplay kc i)
  "scx_Keycode_To_Keysym")

(define (keysym->keycode display keysym)
  (%keysym->keycode (display-Xdisplay display)
		    keysym))

(import-lambda-definition %keysym->keycode (Xdisplay ks)
  "scx_Keysym_To_Keycode")

(define (lookup-string display keycode mask)
  (%lookup-string (display-Xdisplay display)
		  keycode mask))

(import-lambda-definition %lookup-string (Xdisplay kc m)
  "scx_Lookup_String")

(define (rebind-keysym display keysym modifiers string)
  (%rebind-keysym (display-Xdisplay display)
		  keysym
		  (list->vector modifiers)
		  string))

(import-lambda-definition %rebind-keysym (Xdisplay ks mods str)
  "scx_Rebind_Keysym")

(define (refresh-keyboard-mapping window type)
  (%refresh-keyboard-mapping (display-Xdisplay (window-display window))
			     (window-Xwindow window)
			     type))

(import-lambda-definition %refresh-keyboard-mapping (Xdisplay Xwindow type)
  "scx_Refresh_Keyboard_Mapping")