[elpa] master 1c996a0 2/6: Add diff-hl-mark-hunk

[Dmitry Gutov]

branch: master
commit 1c996a073d2749475b19ea1176b1bf3287162534
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Add diff-hl-mark-hunk
    
    #63
---
 diff-hl.el |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/diff-hl.el b/diff-hl.el
index b840788..63c2cde 100644
--- a/diff-hl.el
+++ b/diff-hl.el
@@ -445,6 +445,14 @@ in the source file, or the last line of the hunk above it."
   (interactive)
   (diff-hl-next-hunk t))
 
+(defun diff-hl-mark-hunk ()
+  (interactive)
+  (let ((hunk (diff-hl-hunk-overlay-at (point))))
+    (unless hunk
+      (error "No hunk at point"))
+    (goto-char (overlay-start hunk))
+    (push-mark (overlay-end hunk) nil t)))
+
 (defvar diff-hl-command-map
   (let ((map (make-sparse-keymap)))
     (define-key map "n" 'diff-hl-revert-hunk)