# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206768786 0
# Node ID e6a15031fc8128b9e63f1f6858110dc20360271d
# Parent  0dca8f7962770ced3ad0239691b120264c41e67f
(vc-menu-map-filter): Be more careful when finding
the current backend.

diff -r 0dca8f796277 -r e6a15031fc81 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Mar 29 02:47:48 2008 +0000
+++ b/lisp/ChangeLog	Sat Mar 29 05:33:06 2008 +0000
@@ -1,3 +1,8 @@
+2008-03-29  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-hooks.el (vc-menu-map-filter): Be more careful when finding
+	the current backend.
+
 2008-03-29  Glenn Morris  <rgm@gnu.org>
 
 	* calendar/calendar.el (diary-file, american-date-diary-pattern)
diff -r 0dca8f796277 -r e6a15031fc81 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Sat Mar 29 02:47:48 2008 +0000
+++ b/lisp/vc-hooks.el	Sat Mar 29 05:33:06 2008 +0000
@@ -1064,8 +1064,12 @@
   (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)