diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-07-01 00:23:11 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-07-01 00:47:10 -0400 |
| commit | 68f666e1aea69371554a0364ecb01f494538ef9a (patch) | |
| tree | 8801b09d9893fb1195c0cddb0ce78307ea2eeb34 | |
| parent | c657b6b9e71f11d36ccde37d6a1343bd2cc6178f (diff) | |
| download | emacs.d-68f666e1aea69371554a0364ecb01f494538ef9a.tar.gz | |
diff-review: Add more docstrings
| -rw-r--r-- | lisp/km-diff.el | 4 |
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*") |