Function: vc-find-backend-function

vc-find-backend-function is a byte-compiled function defined in vc-hooks.el.gz.

Signature

(vc-find-backend-function BACKEND FUN)

Documentation

Return BACKEND-specific implementation of FUN.

If there is no such implementation, return the default implementation; if that doesn't exist either, return nil.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-hooks.el.gz
(defun vc-find-backend-function (backend fun)
  "Return BACKEND-specific implementation of FUN.
If there is no such implementation, return the default implementation;
if that doesn't exist either, return nil."
  ;; Nullify `read-symbol-shorthands' to guard the `intern' calls below
  ;; and in `vc-make-backend-sym' from potentially malicious shorthands.
  (let* ((read-symbol-shorthands nil)
         (f (vc-make-backend-sym backend fun)))
    (if (fboundp f) f
      ;; Load vc-BACKEND.el if needed.
      (require (intern (concat "vc-" (downcase (symbol-name backend)))))
      (if (fboundp f) f
	(let ((def (vc-make-backend-sym 'default fun)))
          ;; Load vc.el, for default implementations, if needed.
	  (require 'vc)
	  (if (fboundp def) (cons def backend) nil))))))