Re: [CVS] f7, f8 bound..

[Alex Schroeder]

Miles Bader <address@hidden> writes:

> A _much_ better idea, I think, would be to make it very simple for even
> novice users to easily _bind_ the function keys to their liking; I'm not
> saying it's all that hard now, but I mean, make it really, really, easy.

I really like this!  Perhaps the following is good enough?

(defcustom key-bindings
  (mapcar
   (lambda (key)
     (cons key (global-key-binding (read-kbd-macro key))))
   '("<f1>" "<f2>" "<f3>" "<f4>" "<f5>" "<f6>" "<f7>" "<f8>" "<f9>"
     "<f10>" "<f11>" "<f12>" ))
  "Customization for keys."
  :type '(repeat
          (cons :tag "Key" (string :tag "Name") function))
  :set (lambda (sym val)
         (set-default sym val)
         (mapc (lambda (bind)
                 (global-set-key (read-kbd-macro (car bind)) (cdr bind)))
               val)))

(customize-option 'key-bindings)

Alex.