From ed9117293a41f24a6c6bf176de33523d6690ea71 Mon Sep 17 00:00:00 2001 From: Martin Polden Date: Sun, 26 Apr 2015 22:47:43 +0200 Subject: Remove unused keybindings --- lisp/init-git.el | 31 +------------------------------ 1 file changed, 1 insertion(+), 30 deletions(-) (limited to 'lisp/init-git.el') diff --git a/lisp/init-git.el b/lisp/init-git.el index 27cca1d..d16a2cb 100644 --- a/lisp/init-git.el +++ b/lisp/init-git.el @@ -29,42 +29,13 @@ (magit-visit-item other-window) (select-window current-window))) -(defun magit-stage-line-at-point () - "Stage the current line or region." - (interactive) - (if (use-region-p) - (magit-stage-item) - (let ((current-line (line-number-at-pos))) - (save-excursion - (beginning-of-line) - (set-mark (line-end-position)) - (magit-stage-item)) - (goto-char (point-min)) - (forward-line (1- current-line))))) - (add-hook 'magit-status-mode-hook (lambda () ;; make C-o and o behave as in dired (define-key magit-status-mode-map (kbd "C-o") 'magit-visit-item-noselect) (define-key magit-status-mode-map (kbd "o") - 'magit-visit-item) - ;; stage single line with C-c 1 - (define-key magit-status-mode-map (kbd "C-c 1") - 'magit-stage-line-at-point))) - -(defun git-root () - "Find the git repository root of the visiting file." - (interactive) - (let ((git-root-path (magit-get-top-dir))) - (when git-root-path - (let ((git-root-file-name (directory-file-name git-root-path))) - (message "git repository: %s (%s)" - (file-name-nondirectory git-root-file-name) - git-root-file-name))))) - -;; show current git repo -(global-set-key (kbd "C-c d") 'git-root) + 'magit-visit-item))) (defun git-grep-root () "Run git-grep in the repository root." -- cgit v1.2.3