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 | |
| parent | c2d8d2b2cbfc74ef616ccc6c9f6dea2f8998ffdd (diff) | |
| download | orgmode-backport-notes-d48a699b1c1f6e949dc7cd2badbc7d32d10bdd18.tar.gz | |
org-maint.el: Take in next rev helper
| -rw-r--r-- | org-maint.el | 6 | ||||
| -rw-r--r-- | orgmode-backports.org | 9 |
2 files changed, 6 insertions, 9 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")))) diff --git a/orgmode-backports.org b/orgmode-backports.org index 2e5d8dd..84b5fe9 100644 --- a/orgmode-backports.org +++ b/orgmode-backports.org @@ -42,15 +42,6 @@ and then after resolving run * Backport list -#+begin_src elisp :results silent - (require 'ob-shell) - - (defun org-maint-rev-from-next-item () - (or (and (re-search-forward "- \\[[ X]\\] \\([A-z0-9]\\{40\\}\\)") - (match-string-no-properties 1)) - (user-error "Next revision item not found"))) -#+end_src - NOTE: Look for "ONSYNC" for changes that should be considered when syncing, but that don't seem appropriate for Org backport. |