diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2019-11-16 21:46:36 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2019-11-16 21:46:57 -0500 |
| commit | d48a699b1c1f6e949dc7cd2badbc7d32d10bdd18 (patch) | |
| tree | 2a69e6b7aa719842a242bc16c68e7a61d7bdcda5 /org-maint.el | |
| parent | c2d8d2b2cbfc74ef616ccc6c9f6dea2f8998ffdd (diff) | |
| download | orgmode-backport-notes-d48a699b1c1f6e949dc7cd2badbc7d32d10bdd18.tar.gz | |
org-maint.el: Take in next rev helper
Diffstat (limited to 'org-maint.el')
| -rw-r--r-- | org-maint.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/org-maint.el b/org-maint.el index 3e2f782..3e8f8df 100644 --- a/org-maint.el +++ b/org-maint.el @@ -31,3 +31,9 @@ If APPLY is non-nil, use 'git apply' instead of 'git am'." (call-process "git" nil t nil "show" "-s" "--format=%b%n%s%n%H%n%an%n%cd" commit))) + +(defun org-maint-rev-from-next-item () + (save-excursion + (or (and (re-search-forward "- \\[[ X]\\] \\([A-z0-9]\\{40\\}\\)") + (match-string-no-properties 1)) + (user-error "Next revision item not found")))) |