diff options
| -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. |