[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111650: * vc/vc-hooks.el (vc-menu-ma
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111650: * vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item |
Date: |
Fri, 01 Feb 2013 00:44:10 -0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111650: * vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item,
Glenn Morris <=