summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-07-01 00:23:11 -0400
committerKyle Meyer <kyle@kyleam.com>2017-07-01 00:47:10 -0400
commit68f666e1aea69371554a0364ecb01f494538ef9a (patch)
tree8801b09d9893fb1195c0cddb0ce78307ea2eeb34 /lisp
parentc657b6b9e71f11d36ccde37d6a1343bd2cc6178f (diff)
downloademacs.d-68f666e1aea69371554a0364ecb01f494538ef9a.tar.gz
diff-review: Add more docstrings
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*")