# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1187822350 0
# Node ID 724c9aa26829d1910bd572eed141df775a03bb98
# Parent  641f5b9362be2972f9e5f76ef17b507a2c8ae349
(vc-menu-map-filter): Reapply 2007-08-06 bugfix.

diff -r 641f5b9362be -r 724c9aa26829 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Wed Aug 22 22:28:01 2007 +0000
+++ b/lisp/vc-hooks.el	Wed Aug 22 22:39:10 2007 +0000
@@ -964,7 +964,8 @@
   (if (and (symbolp orig-binding) (fboundp orig-binding))
       (setq orig-binding (indirect-function 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)