Remove unused keybindings

1 files changed, 1 insertions, 30 deletions

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."