Mercurial > hg > xemacs-beta

comparison lisp/packages/vc-hooks.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 59463afc5666
children 6075d714658b
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1035 (define-key vc-prefix-map "r" 'vc-retrieve-snapshot) 1035 (define-key vc-prefix-map "r" 'vc-retrieve-snapshot)
1036 (define-key vc-prefix-map "s" 'vc-create-snapshot) 1036 (define-key vc-prefix-map "s" 'vc-create-snapshot)
1037 (define-key vc-prefix-map "u" 'vc-revert-buffer) 1037 (define-key vc-prefix-map "u" 'vc-revert-buffer)
1038 (define-key vc-prefix-map "v" 'vc-next-action) 1038 (define-key vc-prefix-map "v" 'vc-next-action)
1039 (define-key vc-prefix-map "=" 'vc-diff) 1039 (define-key vc-prefix-map "=" 'vc-diff)
1040 #+xemacs (define-key vc-prefix-map "?" 'vc-file-status)
1041 (define-key vc-prefix-map "~" 'vc-version-other-window))) 1040 (define-key vc-prefix-map "~" 'vc-version-other-window)))
1042 1041
1043 ;; Emacs menus 1042 ;; Emacs menus
1044 ;(if (not (boundp 'vc-menu-map)) 1043 ;(if (not (boundp 'vc-menu-map))
1045 ; ;; Don't do the menu bindings if menu-bar.el wasn't loaded to defvar 1044 ; ;; Don't do the menu bindings if menu-bar.el wasn't loaded to defvar
1081 1080
1082 (defconst vc-menu 1081 (defconst vc-menu
1083 '("VC" 1082 '("VC"
1084 :filter vc-menu-filter 1083 :filter vc-menu-filter
1085 ["" vc-next-action buffer-file-name nil] 1084 ["" vc-next-action buffer-file-name nil]
1086 ;; ^^^ this gets changed to checkin, checkout, register, or steal
1087 ["Show status of" vc-file-status nil nil]
1088 ;;["Show Locked Files" vc-directory t] ;; needs new dired 1085 ;;["Show Locked Files" vc-directory t] ;; needs new dired
1089 "----" 1086 "----"
1090 ["Revert to Last Revision" vc-revert-buffer vc-mode nil] 1087 ["Revert to Last Revision" vc-revert-buffer vc-mode nil]
1091 ["Cancel Last Checkin" vc-cancel-version vc-mode] 1088 ["Cancel Last Checkin" vc-cancel-version vc-mode]
1092 ["Rename File" vc-rename-this-file vc-mode nil] 1089 ["Rename File" vc-rename-this-file vc-mode nil]