From dca921f5a0bd4a0b5fc2cf78fca9b47bbf5b8ac9 Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Mon, 6 Aug 2007 11:03:18 +0000 Subject: [PATCH] (menu-bar-vc-filter): Use vc-call-backend. --- lisp/menu-bar.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 48f4613287b..8bc0bd86a41 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1170,7 +1170,7 @@ mail status in mode line")) (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) -- 2.39.5