Function: edt-bind-function-key

edt-bind-function-key is a byte-compiled function defined in edt.el.gz.

Signature

(edt-bind-function-key FUNCTION-KEY BINDING GOLD-BINDING)

Documentation

Binds LK-201 function keys to custom bindings in the EDT Emulator.

Argument FUNCTION-KEY is the name of the function key or keypad function key. Argument BINDING is the Emacs function to be bound to <KEY>. Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>.

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/edt.el.gz
;;
;;  Functions used to set up USER CUSTOM bindings to EDT emulation functions.
;;
(defun edt-bind-function-key (function-key binding gold-binding)
  "Binds LK-201 function keys to custom bindings in the EDT Emulator.
Argument FUNCTION-KEY is the name of the function key or keypad function key.
Argument BINDING is the Emacs function to be bound to <KEY>.
Argument GOLD-BINDING is the Emacs function to be bound to GOLD <KEY>."
  (let ((key (cdr (assoc function-key *EDT-keys*))))
    (if (and key (not (equal key "")))
	(progn
	  (define-key edt-user-global-map key binding)
	  (define-key 'edt-user-gold-map key gold-binding)))))