+(load "vc-git")
+
+(defun ff/git-push () (interactive)
+ (shell-command "git pull && git push" nil)
+ )
+
+(defun ff/git-pull () (interactive)
+ (shell-command "git pull" nil)
+ )
+
+(define-key global-map [(control x) (v) (p)] 'ff/git-push)
+(define-key global-map [(control x) (v) (P)] 'ff/git-pull)
+