[Emacs-diffs] /srv/bzr/emacs/trunk r111650: * vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item

[Glenn Morris]

------------------------------------------------------------
revno: 111650
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-01 00:44:10 -0800
message:
  * vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item
  if the backend is known not to support it.
modified:
  lisp/ChangeLog
  lisp/vc/vc-hooks.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-01 08:23:47 +0000
+++ b/lisp/ChangeLog    2013-02-01 08:44:10 +0000
@@ -1,5 +1,8 @@
 2013-02-01  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/vc/vc-hooks.el'
--- a/lisp/vc/vc-hooks.el       2013-01-06 02:58:57 +0000
+++ b/lisp/vc/vc-hooks.el       2013-02-01 08:44:10 +0000
@@ -976,6 +976,10 @@
 "))
     (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