Mercurial > emacs

comparison lisp/vc-hooks.el @ 107795:d47e1fb98df3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add new VC methods: vc-log-incoming and vc-log-outgoing. * vc.el (vc-print-log-setup-buttons): New function split out from vc-print-log-internal. (vc-log-internal-common): New function, a parametrized version of vc-print-log-internal. (vc-print-log-internal): Just call vc-log-internal-common with the right arguments. (vc-incoming-outgoing-internal): (vc-log-incoming, vc-log-outgoing): New functions. (vc-log-view-type): New permanent local variable. * vc-hooks.el (vc-menu-map): Bind vc-log-incoming and vc-log-outgoing. * vc-bzr.el (vc-bzr-log-view-mode): Use vc-log-view-type instead of the dynamic bound vc-short-log. (vc-bzr-log-incoming, vc-bzr-log-outgoing): New functions. * vc-git.el (vc-git-log-outgoing): New function. (vc-git-log-view-mode): Use vc-log-view-type instead of the dynamic bound vc-short-log. * vc-hg.el (vc-hg-log-view-mode): Use vc-log-view-type instead of the dynamic bound vc-short-log. Highlight the tag. (vc-hg-log-incoming, vc-hg-log-outgoing): New functions. (vc-hg-outgoing, vc-hg-incoming, vc-hg-outgoing-mode): (vc-hg-incoming-mode): Remove. (vc-hg-extra-menu-map): Do not bind vc-hg-incoming and vc-hg-outgoing.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 06 Apr 2010 22:56:35 -0700
parents 847e60ce6749
children 03ef65bf2e25
comparison
equal deleted inserted replaced
107794:c4daeb1eaaf1 107795:d47e1fb98df3
979 `(menu-item ,(purecopy "Compare Tree with Base Version") vc-root-diff 979 `(menu-item ,(purecopy "Compare Tree with Base Version") vc-root-diff
980 :help ,(purecopy "Compare current tree with the base version"))) 980 :help ,(purecopy "Compare current tree with the base version")))
981 (define-key map [vc-update-change-log] 981 (define-key map [vc-update-change-log]
982 `(menu-item ,(purecopy "Update ChangeLog") vc-update-change-log 982 `(menu-item ,(purecopy "Update ChangeLog") vc-update-change-log
983 :help ,(purecopy "Find change log file and add entries from recent version control logs"))) 983 :help ,(purecopy "Find change log file and add entries from recent version control logs")))
984 (define-key map [vc-log-out]
985 `(menu-item ,(purecopy "Show Outgoing Log") vc-log-outgoing
986 :help ,(purecopy "Show a log of changes that will be sent with a push operation")))
987 (define-key map [vc-log-in]
988 `(menu-item ,(purecopy "Show Incoming Log") vc-log-incoming
989 :help ,(purecopy "Show a log of changes that will be received with a pull operation")))
984 (define-key map [vc-print-log] 990 (define-key map [vc-print-log]
985 `(menu-item ,(purecopy "Show History") vc-print-log 991 `(menu-item ,(purecopy "Show History") vc-print-log
986 :help ,(purecopy "List the change log of the current file set in a window"))) 992 :help ,(purecopy "List the change log of the current file set in a window")))
987 (define-key map [vc-print-root-log] 993 (define-key map [vc-print-root-log]
988 `(menu-item ,(purecopy "Show Top of the Tree History ") vc-print-root-log 994 `(menu-item ,(purecopy "Show Top of the Tree History ") vc-print-root-log