From 98481bad3b5e89258579cc9ff9ed4536760bcb7e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 21 Aug 2007 15:10:55 +0000 Subject: [PATCH] (vc-menu-map-filter): Use vc-call and reindent. --- lisp/vc-hooks.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 62719124fd9..c206d5e953c 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -964,14 +964,14 @@ 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-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) -- 2.39.2