Function: emerge-force-define-key

emerge-force-define-key is a byte-compiled function defined in emerge.el.gz.

Signature

(emerge-force-define-key KEYMAP KEY DEFINITION)

Documentation

Like define-key, but forcibly create prefix characters as needed.

If some prefix of KEY has a non-prefix definition, it is redefined.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/emerge.el.gz
;; Define a key, even if a prefix of it is defined
(defun emerge-force-define-key (keymap key definition)
  "Like `define-key', but forcibly create prefix characters as needed.
If some prefix of KEY has a non-prefix definition, it is redefined."
  ;; Find out if a prefix of key is defined
  (let ((v (lookup-key keymap key)))
    ;; If so, undefine it
    (if (integerp v)
	(define-key keymap (substring key 0 v) nil)))
  ;; Now define the key
  (define-key keymap key definition))