comparison lisp/vc-hooks.el @ 82771:724c9aa26829

(vc-menu-map-filter): Reapply 2007-08-06 bugfix.

82770:641f5b9362be

(defun vc-menu-map-filter (orig-binding)
  (if (and (symbolp orig-binding) (fboundp orig-binding))
      (setq orig-binding (indirect-function orig-binding)))
  (let ((ext-binding
         (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
      (append orig-binding

82771:724c9aa26829

(defun vc-menu-map-filter (orig-binding)
  (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))))
    ;; Give the VC backend a chance to add menu entries
    ;; specific for that backend.
    (if (null ext-binding)
        orig-binding
      (append orig-binding