summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/km-magit.el18
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index 11584c1..91c03b8 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -988,9 +988,10 @@ COMMIT."
(t (concat (car msg-lines) "[...]"))))))
(defun km/magit-copy-commit-message (&optional _)
- (when (magit-section-match 'message)
- (let ((msg (buffer-substring-no-properties (oref it start)
- (oref it end))))
+ (when (magit-section-match 'commit-message)
+ (let* ((section (magit-current-section))
+ (msg (buffer-substring-no-properties (oref section start)
+ (oref section end))))
(kill-new msg)
(km/magit-copy--truncated-message msg))))
@@ -1008,11 +1009,12 @@ COMMIT."
(defun km/magit-copy-hunk (&optional _)
(when (magit-section-match 'hunk)
- (kill-new (buffer-substring-no-properties
- (save-excursion (goto-char (oref it start))
- (1+ (point-at-eol)))
- (oref it end)))
- (message "Copied hunk: %s" (oref it value))))
+ (let ((section (magit-current-section)))
+ (kill-new (buffer-substring-no-properties
+ (save-excursion (goto-char (oref section start))
+ (1+ (point-at-eol)))
+ (oref section end)))
+ (message "Copied hunk: %s" (oref section value)))))
(defun km/magit-copy-as-kill ()
"Try `km/magit-copy-functions' before calling `magit-copy-section-value'.