Function: fetch-overload

fetch-overload is a byte-compiled function defined in mode-local.el.gz.

Signature

(fetch-overload OVERLOAD)

Documentation

Return the current OVERLOAD function, or nil if not found.

First, lookup for OVERLOAD into locally bound mode local symbols, then in those bound in current major-mode and its parents.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/mode-local.el.gz
(defsubst fetch-overload (overload)
  "Return the current OVERLOAD function, or nil if not found.
First, lookup for OVERLOAD into locally bound mode local symbols, then
in those bound in current `major-mode' and its parents."
  (or (mode-local-symbol-value overload nil 'override-flag)
      ;; If an obsolete overload symbol exists, try it.
      (and (mode-local--overload-obsoleted-by overload)
           (mode-local-symbol-value
            (mode-local--overload-obsoleted-by overload) nil 'override-flag))))