diff options
| author | Jason Rumney | 2007-08-06 11:03:18 +0000 |
|---|---|---|
| committer | Jason Rumney | 2007-08-06 11:03:18 +0000 |
| commit | dca921f5a0bd4a0b5fc2cf78fca9b47bbf5b8ac9 (patch) | |
| tree | 17f926736aa0e45ec2fe99419f6ad4c5fe6853c0 | |
| parent | a5b115873d095570f3ada4fa96fdfde0861e04da (diff) | |
| download | emacs-dca921f5a0bd4a0b5fc2cf78fca9b47bbf5b8ac9.tar.gz emacs-dca921f5a0bd4a0b5fc2cf78fca9b47bbf5b8ac9.zip | |
(menu-bar-vc-filter): Use vc-call-backend.
| -rw-r--r-- | lisp/menu-bar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 48f4613287b..8bc0bd86a41 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -1170,7 +1170,7 @@ mail status in mode line")) | |||
| 1170 | 1170 | ||
| 1171 | (defun menu-bar-vc-filter (orig-binding) | 1171 | (defun menu-bar-vc-filter (orig-binding) |
| 1172 | (let ((ext-binding | 1172 | (let ((ext-binding |
| 1173 | (if vc-mode (vc-call 'extra-menu buffer-file-name)))) | 1173 | (if vc-mode (vc-call-backend (vc-backend buffer-file-name) 'extra-menu)))) |
| 1174 | ;; Give the VC backend a chance to add menu entries | 1174 | ;; Give the VC backend a chance to add menu entries |
| 1175 | ;; specific for that backend. | 1175 | ;; specific for that backend. |
| 1176 | (if (null ext-binding) | 1176 | (if (null ext-binding) |