diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-21 15:10:55 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-21 15:10:55 +0000 |
| commit | 98481bad3b5e89258579cc9ff9ed4536760bcb7e (patch) | |
| tree | f2ec8376a9513283e51a45fc8ec96de926089f48 /lisp/vc-hooks.el | |
| parent | dc172b732392aea2e29dc5eec19d2d4740deccac (diff) | |
| download | emacs-98481bad3b5e89258579cc9ff9ed4536760bcb7e.tar.gz | |
(vc-menu-map-filter): Use vc-call and reindent.
Diffstat (limited to 'lisp/vc-hooks.el')
| -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'." (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) |