summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-diff.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/km-diff.el b/lisp/km-diff.el
index d7b706d..df1f666 100644
--- a/lisp/km-diff.el
+++ b/lisp/km-diff.el
@@ -122,6 +122,9 @@ will copy and the current comment,
(font-lock-flush)))
(defun km/diff-review-copy-comment ()
+ "Copy the comment at point, stripping the leading ': '.
+When there is no comment at point or when the region is active,
+fall back to `kill-region'."
(interactive)
(if (or (use-region-p)
(not (eq ?: (char-after (point-at-bol)))))
@@ -150,6 +153,7 @@ will copy and the current comment,
(replace-regexp-in-string "\\s-+\\'" "")))))))
(defun km/diff-review-as-mail ()
+ "Export the current diff review buffer as a mail reply."
(interactive)
(let ((contents (buffer-substring-no-properties (point-min) (point-max))))
(with-current-buffer (get-buffer-create "*Diff Review Mail*")