[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [CVS] f7, f8 bound..

From: Alex Schroeder
Subject: Re: [CVS] f7, f8 bound..
Date: Sat, 31 Aug 2002 13:21:37 +0200
User-agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.2.90 (i686-pc-linux-gnu)

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
   (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)))

(customize-option 'key-bindings)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]