diff options
author | Kyle Meyer <kyle@kyleam.com> | 2017-01-20 23:28:06 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2017-01-20 23:28:06 -0500 |
commit | fa1c39cc448244cf9260bdec07a14400b0f11a47 (patch) | |
tree | ab56ccd1a39177a8d6f3e03fdf18f0ced59c24a7 | |
parent | 76af73d23efa015ba2846510816df0183b7f4f54 (diff) | |
download | emacs.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).
-rw-r--r-- | lisp/km-magit.el | 18 |
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) |