mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(vc-menu-map-filter): Be more careful when finding

Browse source 
the current backend.
This commit is contained in:
Dan Nicolaescu 2008-03-29 05:33:06 +00:00
parent dc7f8d5723
commit f3d57a2c20
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/vc-hooks.el
View file

@ -1064,8 +1064,12 @@ 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))))
(when vc-mode
(vc-call-backend
(if buffer-file-name
(vc-backend buffer-file-name)
(vc-responsible-backend default-directory))
'extra-menu))))
;; Give the VC backend a chance to add menu entries
;; specific for that backend.
(if (null ext-binding)