[Emacs-diffs] Changes to emacs/lisp/vc-hooks.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/03/29 05:33:08

Index: vc-hooks.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-hooks.el,v
retrieving revision 1.232
retrieving revision 1.233
diff -u -b -r1.232 -r1.233
--- vc-hooks.el 27 Mar 2008 15:00:32 -0000      1.232
+++ vc-hooks.el 29 Mar 2008 05:33:05 -0000      1.233
@@ -1064,7 +1064,11 @@
   (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)
+         (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.