From 68f666e1aea69371554a0364ecb01f494538ef9a Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 1 Jul 2017 00:23:11 -0400 Subject: diff-review: Add more docstrings --- lisp/km-diff.el | 4 ++++ 1 file changed, 4 insertions(+) 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*") -- cgit v1.2.3