From: Jason Rumney <jasonr@gnu.org>
Date: Wed, 22 Aug 2007 22:40:18 +0000 (+0000)
Subject: (vc-menu-map-filter): Reapply 2007-08-06 bugfix.
X-Git-Tag: emacs-pretest-23.0.90~11369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d2f172bd35271ba5ca3e3e0f9a2087e14ac27fd;p=emacs.git

(vc-menu-map-filter): Reapply 2007-08-06 bugfix.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2384df3600f..988963ac75d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-08-22  Jason Rumney  <jasonr@gnu.org>
+
+	* vc-hooks.el (vc-menu-map-filter): Reapply 2007-08-06 bugfix.
+
 2007-08-22  Chong Yidong  <cyd@stupidchicken.com>
 
 	* image-mode.el (image-minor-mode): Use image-mode-text-map.
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index c206d5e953c..7e830d7d168 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -964,7 +964,8 @@ Used in `find-file-not-found-functions'."
   (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)