Function: edt-restore-key

edt-restore-key is an interactive and byte-compiled function defined in edt.el.gz.

Signature

(edt-restore-key)

Documentation

Restore last replaced key definition.

Definition is stored in edt-last-replaced-key-definition.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/edt.el.gz
;;;
;;; RESTORE KEY
;;;

(defun edt-restore-key ()
  "Restore last replaced key definition.
Definition is stored in `edt-last-replaced-key-definition'."
  (interactive)
  (if edt-last-replaced-key-definition
      (progn
        (let (edt-key-definition)
          (setq edt-key-definition
                (read-key-sequence "Press the key to be restored: "))
          (if (string-equal "\C-m" edt-key-definition)
              (message "Key not restored")
	    (progn
	      (define-key (current-global-map)
		edt-key-definition edt-last-replaced-key-definition)
              (message "Key definition for %s has been restored."
                       edt-key-definition)))))
    (error "No replaced key definition to restore!")))