summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDan Nicolaescu <dann@ics.uci.edu>2010-06-03 16:08:26 -0700
committerDan Nicolaescu <dann@ics.uci.edu>2010-06-03 16:08:26 -0700
commit54d3626e26da1d3d094e6182c308bb2ca968d691 (patch)
treefde4cbe3cb4d27a68915ef00591a3725a125f8cd
parentd8198da06bc90f4d3857fccf668bcc7c46a41a38 (diff)
Add bindings for vc-log-incoming and vc-log-outgoing.
* lisp/vc-hooks.el (vc-prefix-map): Add bindings for vc-log-incoming and vc-log-outgoing. * lisp/vc-dir.el (vc-dir-menu-map): Add menu bindings for vc-log-incoming and vc-log-outgoing.
-rw-r--r--etc/NEWS3
-rw-r--r--lisp/ChangeLog8
-rw-r--r--lisp/vc-dir.el13
-rw-r--r--lisp/vc-hooks.el2
4 files changed, 24 insertions, 2 deletions
diff --git a/etc/NEWS b/etc/NEWS
index 62fe1ce1a8..58546d31bb 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -164,6 +164,9 @@ read a file name from the minibuffer instead of using buffer-file-name.
*** New VC commands: vc-log-incoming, vc-log-outgoing, vc-find-conflicted-file.
+*** New key bindings: C-x v I and C-x v O bound to vc-log-incoming and
+vc-log-outgoing, respectively.
+
*** vc-dir for Bzr supports viewing shelve contents and shelving snapshots.
*** Special markup can be added to log-edit buffers.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c5d734938..e037c2579b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2010-06-03 Dan Nicolaescu <dann@ics.uci.edu>
+
+ Add bindings for vc-log-incoming and vc-log-outgoing.
+ * vc-hooks.el (vc-prefix-map): Add bindings for vc-log-incoming
+ and vc-log-outgoing.
+ * vc-dir.el (vc-dir-menu-map): Add menu bindings for vc-log-incoming
+ and vc-log-outgoing.
+
2010-06-03 Chong Yidong <cyd@stupidchicken.com>
* net/rcirc.el (rcirc-sort-nicknames): Remove.
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index 44f0fed080..3d6bd328f1 100644
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -188,9 +188,18 @@ See `run-hooks'."
(define-key map [diff]
'(menu-item "Compare with Base Version" vc-diff
:help "Compare file set with the base version"))
+ (define-key map [logo]
+ '(menu-item "Show Outgoing Log" vc-log-outgoing
+ :help "Show a log of changes that will be sent with a push operation"))
+ (define-key map [logi]
+ '(menu-item "Show Incoming Log" vc-log-incoming
+ :help "Show a log of changes that will be received with a pull operation"))
(define-key map [log]
- '(menu-item "Show history" vc-print-log
- :help "List the change log of the current file set in a window"))
+ '(menu-item "Show history" vc-print-log
+ :help "List the change log of the current file set in a window"))
+ (define-key map [rlog]
+ '(menu-item "Show Top of the Tree History " vc-print-root-log
+ :help "List the change log for the current tree in a window"))
;; VC commands.
(define-key map [sepvccmd] '("--"))
(define-key map [update]
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index ab9972a7e4..6735bf7a9e 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -942,6 +942,8 @@ current, and kill the buffer that visits the link."
(define-key map "i" 'vc-register)
(define-key map "l" 'vc-print-log)
(define-key map "L" 'vc-print-root-log)
+ (define-key map "I" 'vc-log-incoming)
+ (define-key map "O" 'vc-log-outgoing)
(define-key map "m" 'vc-merge)
(define-key map "r" 'vc-retrieve-tag)
(define-key map "s" 'vc-create-tag)