summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-01-20 23:28:06 -0500
committerKyle Meyer <kyle@kyleam.com>2017-01-20 23:28:06 -0500
commitfa1c39cc448244cf9260bdec07a14400b0f11a47 (patch)
treeab56ccd1a39177a8d6f3e03fdf18f0ced59c24a7 /lisp
parent76af73d23efa015ba2846510816df0183b7f4f54 (diff)
downloademacs.d-fa1c39cc448244cf9260bdec07a14400b0f11a47.tar.gz
Delete km/magit-stage-file-intent command
This is no longer useful because this functionality was added to Magit in 3584aaba (magit-stage: support --intent-to-add, 2016-05-04).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-magit.el18
1 files changed, 0 insertions, 18 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 0fae81e..d8972ba 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -117,24 +117,6 @@ branch."
(magit-merge it '("--ff-only"))
(user-error "No upstream branch")))
-(defun km/magit-stage-file-intent (file)
- "Stage FILE but not its content.
-With a prefix argument or when there is no file at point, ask for
-the file to be staged. Otherwise, stage the file at point
-without requiring confirmation.
-\n(git add -N FILE)"
- ;; Modified from `magit-stage-file'.
- (interactive
- (let* ((atpoint (magit-section-when (file)))
- (current (magit-file-relative-name))
- (choices (magit-untracked-files))
- (default (car (member (or atpoint current) choices))))
- (list (if (or current-prefix-arg (not default))
- (magit-completing-read "Stage file" choices
- nil t nil nil default)
- default))))
- (magit-run-git "add" "-N" file))
-
(defun km/magit-push-all ()
"Push all branches."
(interactive)