Function: edt-bind-function-key-default

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

Signature

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

Documentation

Binds LK-201 function keys to default 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 DEFAULT bindings to EDT emulation functions.
;;

(defun edt-bind-function-key-default (function-key binding gold-binding)
  "Binds LK-201 function keys to default 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-default-global-map key binding)
	  (define-key 'edt-default-gold-map key gold-binding)))))