Function: emerge-define-key-if-possible

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

Signature

(emerge-define-key-if-possible KEYMAP KEY DEFINITION)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/emerge.el.gz
;; Define a key if it (or a prefix) is not already defined in the map.
(defun emerge-define-key-if-possible (keymap key definition)
  ;; look up the present definition of the key
  (let ((present (lookup-key keymap key)))
    (if (integerp present)
	;; if it is "too long", look up the valid prefix
	(if (not (lookup-key keymap (substring key 0 present)))
	    ;; if the prefix isn't defined, define it
	    (define-key keymap key definition))
      ;; if there is no present definition, define it
      (if (not present)
	  (define-key keymap key definition)))))