Fix error message in vcs trans-state

This commit is contained in:
Eivind Fonn 2016-02-09 21:29:44 +01:00
parent ba30c06754
commit 16d8c24a30

View file

@ -38,12 +38,13 @@
(defun version-control/stage-hunk ()
(interactive)
(let ((current-prefix-arg t))
(call-interactively
(cl-case version-control-diff-tool
(diff-hl (message "staging not available."))
(git-gutter 'git-gutter:stage-hunk)
(git-gutter+ 'git-gutter+-stage-hunks)))))
(if (eq 'diff-hl version-control-diff-tool)
(message "Staging not available")
(let ((current-prefix-arg t))
(call-interactively
(cl-case version-control-diff-tool
(git-gutter 'git-gutter:stage-hunk)
(git-gutter+ 'git-gutter+-stage-hunks))))))
(defun version-control/show-hunk ()
(interactive)