Mercurial > emacs
diff lisp/vc-hooks.el @ 82501:5c15d3c510b1
(vc-menu-map-filter): Use vc-call and reindent.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 21 Aug 2007 15:10:55 +0000 |
parents | 3ecf9562ce0b |
children | 724c9aa26829 |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Tue Aug 21 15:08:47 2007 +0000 +++ b/lisp/vc-hooks.el Tue Aug 21 15:10:55 2007 +0000 @@ -964,14 +964,14 @@ (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)