# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1186398198 0
# Node ID 7dbd61707d6c6e7c63ee9a6fd5c06c60ec3ba0cc
# Parent  edfa5c74f8fb4f9035045d6591dba2c13be73497
(menu-bar-vc-filter): Use vc-call-backend.

diff -r edfa5c74f8fb -r 7dbd61707d6c lisp/menu-bar.el
--- a/lisp/menu-bar.el	Mon Aug 06 08:26:51 2007 +0000
+++ b/lisp/menu-bar.el	Mon Aug 06 11:03:18 2007 +0000
@@ -1170,7 +1170,7 @@
 
 (defun menu-bar-vc-filter (orig-binding)
   (let ((ext-binding
-   (if vc-mode (vc-call 'extra-menu buffer-file-name))))
+   (if vc-mode (vc-call-backend (vc-backend buffer-file-name) 'extra-menu))))
     ;; Give the VC backend a chance to add menu entries
     ;; specific for that backend.
     (if (null ext-binding)