Function: ede-apply-object-keymap

ede-apply-object-keymap is a byte-compiled function defined in ede.el.gz.

Signature

(ede-apply-object-keymap &optional DEFAULT)

Documentation

Add target specific keybindings into the local map.

Optional argument DEFAULT indicates if this should be set to the default version of the keymap.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede.el.gz
(defun ede-apply-object-keymap (&optional _default)
  "Add target specific keybindings into the local map.
Optional argument DEFAULT indicates if this should be set to the default
version of the keymap."
  (let ((object (or ede-object ede-selected-object))
	(proj ede-object-project))
    (condition-case nil
	(let ((keys (ede-object-keybindings object)))
	  (dolist (key
                   ;; Add keys for the project to whatever is in the current
                   ;; object so long as it isn't the same.
                   (if (eq object proj)
                       keys
                     (append keys (ede-object-keybindings proj))))
	    (local-set-key (concat "\C-c." (car key)) (cdr key))))
      (error nil))))