Function: semantic-install-function-overrides

semantic-install-function-overrides is a byte-compiled function defined in fw.el.gz.

Signature

(semantic-install-function-overrides OVERRIDES &optional TRANSIENT)

Documentation

Install the function OVERRIDES in the specified environment.

OVERRIDES must be an alist ((OVERLOAD . FUNCTION) ...) where OVERLOAD is a symbol identifying an overloadable entry, and FUNCTION is the function to override it with. If optional argument TRANSIENT is non-nil, installed overrides can in turn be overridden by next installation. If optional argument MODE is non-nil, it must be a major mode symbol. OVERRIDES will be installed globally for this major mode. If MODE is nil, OVERRIDES will be installed locally in the current buffer. This later installation should be done in MODE hook.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/fw.el.gz
(defun semantic-install-function-overrides (overrides &optional transient)
  "Install the function OVERRIDES in the specified environment.
OVERRIDES must be an alist ((OVERLOAD .  FUNCTION) ...) where OVERLOAD
is a symbol identifying an overloadable entry, and FUNCTION is the
function to override it with.
If optional argument TRANSIENT is non-nil, installed overrides can in
turn be overridden by next installation.
If optional argument MODE is non-nil, it must be a major mode symbol.
OVERRIDES will be installed globally for this major mode.  If MODE is
nil, OVERRIDES will be installed locally in the current buffer.  This
later installation should be done in MODE hook."
  (mode-local-bind
   ;; Add the semantic- prefix to OVERLOAD short names.
   (mapcar
    (lambda (e)
      (let ((name (symbol-name (car e))))
        (if (string-match "^semantic-" name)
            e
          (cons (intern (format "semantic-%s" name)) (cdr e)))))
    overrides)
   (list 'constant-flag (not transient)
         'override-flag t)
   nil))