* vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item

if the backend is known not to support it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2bb42b62a1d838335bb86bbcd7e8535c7ec653a..b6f1fb74b99477d1d2d6fee8f04dd871c03be1b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-02-01  Glenn Morris  <rgm@gnu.org>
 
+       * vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item
+       if the backend is known not to support it.
+
        * imenu.el (imenu-default-create-index-function):
        Tweak infinite loop test to check for forward motion as well as none.
 

diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 99436303fa2fa7c864bcea538d3139b2d74fe1ad..541b0c04b0bb2aba4978fb7e3df22079f01aeac8 100644 (file)
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -976,6 +976,10 @@ current, and kill the buffer that visits the link."
 "))
     (bindings--define-key map [undo]
       '(menu-item "Undo Last Check-In" vc-rollback
+                  :enable (let ((backend (if buffer-file-name
+                                             (vc-backend buffer-file-name))))
+                            (or (not backend)
+                                (vc-find-backend-function backend 'rollback)))
                  :help "Remove the most recent changeset committed to the repository"))
     (bindings--define-key map [vc-revert]
       '(menu-item "Revert to Base Version" vc-revert