diff options
| -rw-r--r-- | lisp/vc-hooks.el | 6 |
1 files 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'." | |||
| 964 | (if (and (symbolp orig-binding) (fboundp orig-binding)) | 964 | (if (and (symbolp orig-binding) (fboundp orig-binding)) |
| 965 | (setq orig-binding (indirect-function orig-binding))) | 965 | (setq orig-binding (indirect-function orig-binding))) |
| 966 | (let ((ext-binding | 966 | (let ((ext-binding |
| 967 | (if vc-mode (vc-call-backend (vc-backend buffer-file-name) 'extra-menu)))) | 967 | (if vc-mode (vc-call extra-menu buffer-file-name)))) |
| 968 | ;; Give the VC backend a chance to add menu entries | 968 | ;; Give the VC backend a chance to add menu entries |
| 969 | ;; specific for that backend. | 969 | ;; specific for that backend. |
| 970 | (if (null ext-binding) | 970 | (if (null ext-binding) |
| 971 | orig-binding | 971 | orig-binding |
| 972 | (append orig-binding | 972 | (append orig-binding |
| 973 | '((ext-menu-separator "---")) | 973 | '((ext-menu-separator "---")) |
| 974 | ext-binding)))) | 974 | ext-binding)))) |
| 975 | 975 | ||
| 976 | (defun vc-default-extra-menu (backend) | 976 | (defun vc-default-extra-menu (backend) |
| 977 | nil) | 977 | nil) |