# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1187709055 0
# Node ID 5c15d3c510b1a651116e6c1bea6fa322014337bd
# Parent  029c5ed25e99336ae08a37dbac12dee02fc0db9a
(vc-menu-map-filter): Use vc-call and reindent.

diff -r 029c5ed25e99 -r 5c15d3c510b1 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Tue Aug 21 15:08:47 2007 +0000
+++ b/lisp/vc-hooks.el	Tue Aug 21 15:10:55 2007 +0000
@@ -964,14 +964,14 @@
   (if (and (symbolp orig-binding) (fboundp orig-binding))
       (setq orig-binding (indirect-function orig-binding)))
   (let ((ext-binding
-   (if vc-mode (vc-call-backend (vc-backend buffer-file-name) 'extra-menu))))
+         (if vc-mode (vc-call extra-menu buffer-file-name))))
     ;; Give the VC backend a chance to add menu entries
     ;; specific for that backend.
     (if (null ext-binding)
-    orig-binding
+        orig-binding
       (append orig-binding
 	      '((ext-menu-separator "---"))
-	            ext-binding))))
+              ext-binding))))
 
 (defun vc-default-extra-menu (backend)
   nil)