diff options
| author | Dan Nicolaescu <[email protected]> | 2008-03-29 05:33:06 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <[email protected]> | 2008-03-29 05:33:06 +0000 |
| commit | f3d57a2c20d2916f8515a6e334cdc3dca4e12b4e (patch) | |
| tree | cb755be97ea6d4a3520e539ebbf8b1cf0ef94bc8 /lisp/vc-hooks.el | |
| parent | dc7f8d5723beb0d947f77c30d1a4db31ee8f9a72 (diff) | |
(vc-menu-map-filter): Be more careful when finding
the current backend.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index c033b6e8fb..893b16db60 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -1064,8 +1064,12 @@ 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)))) + (when vc-mode + (vc-call-backend + (if buffer-file-name + (vc-backend buffer-file-name) + (vc-responsible-backend default-directory)) + 'extra-menu)))) ;; Give the VC backend a chance to add menu entries ;; specific for that backend. (if (null ext-binding) |