Mercurial > emacs

comparison lisp/vc-hooks.el @ 91585:4fe734146ac9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
revert the `vc-status' keybindings
author Sam Steingold <sds@gnu.org>
date Wed, 06 Feb 2008 19:06:34 +0000
parents c72722ab4a01
children 34698a40474e
comparison
equal deleted inserted replaced
91584:c72722ab4a01 91585:4fe734146ac9
966 (define-key map "u" 'vc-revert) 966 (define-key map "u" 'vc-revert)
967 (define-key map "v" 'vc-next-action) 967 (define-key map "v" 'vc-next-action)
968 (define-key map "+" 'vc-update) 968 (define-key map "+" 'vc-update)
969 (define-key map "=" 'vc-diff) 969 (define-key map "=" 'vc-diff)
970 (define-key map "~" 'vc-revision-other-window) 970 (define-key map "~" 'vc-revision-other-window)
971 (define-key map "?" 'vc-status) 971 ;; `vc-status' is a not-quite-ready replacement for `vc-directory'
972 ;; (define-key map "?" 'vc-status)
972 map)) 973 map))
973 (fset 'vc-prefix-map vc-prefix-map) 974 (fset 'vc-prefix-map vc-prefix-map)
974 (defcustom vc-prefix-key "\C-xv" "*The prefix for the VC bindings." 975 (defcustom vc-prefix-key "\C-xv" "*The prefix for the VC bindings."
975 :set (lambda (symbol prefix) ; symbol == vc-prefix-key 976 :set (lambda (symbol prefix) ; symbol == vc-prefix-key
976 (define-key global-map prefix 'vc-prefix-map) ; install new prefix 977 (define-key global-map prefix 'vc-prefix-map) ; install new prefix
987 (define-key map [vc-retrieve-snapshot] 988 (define-key map [vc-retrieve-snapshot]
988 '("Retrieve Snapshot" . vc-retrieve-snapshot)) 989 '("Retrieve Snapshot" . vc-retrieve-snapshot))
989 (define-key map [vc-create-snapshot] 990 (define-key map [vc-create-snapshot]
990 '("Create Snapshot" . vc-create-snapshot)) 991 '("Create Snapshot" . vc-create-snapshot))
991 (define-key map [vc-directory] '("VC Directory Listing" . vc-directory)) 992 (define-key map [vc-directory] '("VC Directory Listing" . vc-directory))
992 (define-key map [vc-status] '("VC Status" . vc-status)) 993 ;; `vc-status' is a not-quite-ready replacement for `vc-directory'
994 ;; (define-key map [vc-status] '("VC Status" . vc-status))
993 (define-key map [separator1] '("----")) 995 (define-key map [separator1] '("----"))
994 (define-key map [vc-annotate] '("Annotate" . vc-annotate)) 996 (define-key map [vc-annotate] '("Annotate" . vc-annotate))
995 (define-key map [vc-rename-file] '("Rename File" . vc-rename-file)) 997 (define-key map [vc-rename-file] '("Rename File" . vc-rename-file))
996 (define-key map [vc-revision-other-window] 998 (define-key map [vc-revision-other-window]
997 '("Show Other Version" . vc-revision-other-window)) 999 '("Show Other Version" . vc-revision-other-window))