From: Glenn Morris Date: Tue, 1 Apr 2008 02:58:32 +0000 (+0000) Subject: (vc-responsible-backend): Declare as function. X-Git-Tag: emacs-pretest-23.0.90~6714 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aafb0703bfb213ccabf492ad518b6882aac6cb33;p=emacs.git (vc-responsible-backend): Declare as function. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bf2e732e82d..1d7f1108dd8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-04-01 Glenn Morris + * vc-hooks.el (vc-responsible-backend): Declare as function. + * calendar/calendar.el (calendar-nongregorian-visible-p): New function. * calendar/cal-hebrew.el (calendar-hebrew-date-is-visible-p): * calendar/cal-julian.el (holiday-julian): Use it. diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 893b16db601..05adcd5c6aa 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -6,8 +6,6 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id$ - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify @@ -1060,12 +1058,14 @@ Used in `find-file-not-found-functions'." (defalias 'vc-menu-map vc-menu-map) +(declare-function vc-responsible-backend "vc" (file &optional register)) + (defun vc-menu-map-filter (orig-binding) (if (and (symbolp orig-binding) (fboundp orig-binding)) (setq orig-binding (indirect-function orig-binding))) (let ((ext-binding (when vc-mode - (vc-call-backend + (vc-call-backend (if buffer-file-name (vc-backend buffer-file-name) (vc-responsible-backend default-directory))