From 4d2f172bd35271ba5ca3e3e0f9a2087e14ac27fd Mon Sep 17 00:00:00 2001 From: Jason Rumney Date: Wed, 22 Aug 2007 22:40:18 +0000 Subject: [PATCH] (vc-menu-map-filter): Reapply 2007-08-06 bugfix. --- lisp/ChangeLog | 4 ++++ lisp/vc-hooks.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * vc-hooks.el (vc-menu-map-filter): Reapply 2007-08-06 bugfix. + 2007-08-22 Chong Yidong * 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) -- 2.39.2