Mercurial > emacs

comparison lisp/vc-hooks.el @ 95020:4da572dc4992

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Snapshot primitives globally renamed to refer to tags, documentation updated.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 15 May 2008 17:38:50 +0000
parents 336209f2841c
children b4a9f05bf87b
comparison
equal deleted inserted replaced
95019:dacdc18f78bd 95020:4da572dc4992
979 (define-key map "g" 'vc-annotate) 979 (define-key map "g" 'vc-annotate)
980 (define-key map "h" 'vc-insert-headers) 980 (define-key map "h" 'vc-insert-headers)
981 (define-key map "i" 'vc-register) 981 (define-key map "i" 'vc-register)
982 (define-key map "l" 'vc-print-log) 982 (define-key map "l" 'vc-print-log)
983 (define-key map "m" 'vc-merge) 983 (define-key map "m" 'vc-merge)
984 (define-key map "r" 'vc-retrieve-snapshot) 984 (define-key map "r" 'vc-retrieve-tag)
985 (define-key map "s" 'vc-create-snapshot) 985 (define-key map "s" 'vc-create-tag)
986 (define-key map "u" 'vc-revert) 986 (define-key map "u" 'vc-revert)
987 (define-key map "v" 'vc-next-action) 987 (define-key map "v" 'vc-next-action)
988 (define-key map "+" 'vc-update) 988 (define-key map "+" 'vc-update)
989 (define-key map "=" 'vc-diff) 989 (define-key map "=" 'vc-diff)
990 (define-key map "~" 'vc-revision-other-window) 990 (define-key map "~" 'vc-revision-other-window)
994 994
995 (defvar vc-menu-map 995 (defvar vc-menu-map
996 (let ((map (make-sparse-keymap "Version Control"))) 996 (let ((map (make-sparse-keymap "Version Control")))
997 ;;(define-key map [show-files] 997 ;;(define-key map [show-files]
998 ;; '("Show Files under VC" . (vc-directory t))) 998 ;; '("Show Files under VC" . (vc-directory t)))
999 (define-key map [vc-retrieve-snapshot] 999 (define-key map [vc-retrieve-tag]
1000 '(menu-item "Retrieve Snapshot" vc-retrieve-snapshot 1000 '(menu-item "Retrieve Tag" vc-retrieve-tag
1001 :help "Retrieve snapshot")) 1001 :help "Retrieve tagged version or branch"))
1002 (define-key map [vc-create-snapshot] 1002 (define-key map [vc-create-tag]
1003 '(menu-item "Create Snapshot" vc-create-snapshot 1003 '(menu-item "Create Tag" vc-create-tag
1004 :help "Create Snapshot")) 1004 :help "Create version tag"))
1005 (define-key map [separator1] '("----")) 1005 (define-key map [separator1] '("----"))
1006 (define-key map [vc-annotate] 1006 (define-key map [vc-annotate]
1007 '(menu-item "Annotate" vc-annotate 1007 '(menu-item "Annotate" vc-annotate
1008 :help "Display the edit history of the current file using colors")) 1008 :help "Display the edit history of the current file using colors"))
1009 (define-key map [vc-rename-file] 1009 (define-key map [vc-rename-file]