Re: Customizing key bindings (was: Re: [CVS] f7, f8 bound..)

[Alex Schroeder]

Per Abrahamsen <address@hidden> writes:

> (define-widget 'key-sequence-field 'string
>   "Field for entering key bindings."
>   :tag "Key sequence"
>   :error "Not a well-formed key sequence"
>   :validate 'key-sequence-field-validate
>   :keymap key-sequence-widget-map)
>
> (defun key-sequence-widget-validate (widget value)
>   (let ((value (widget-apply widget :value-get)))
>     (condition-case nil
>       (progn 
>         (read-kbd-macro value)
>         nil)
>       (error widget))))

Per, something about this validate stuff is not right.  Even when I
rename -field-validate to -widget-validate, it does not work (wrong
number of arguments).  I just commented validation out for the the
moment, and it seems that I can test things now.

Alex.