branch: externals/objed commit 35feabbe725d9795a35669260127fca5990dfe2b Author: Clemens Radermacher <clem...@posteo.net> Commit: Clemens Radermacher <clem...@posteo.net>
Add function to get align section bounds --- objed-objects.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/objed-objects.el b/objed-objects.el index b40316b..683e52c 100644 --- a/objed-objects.el +++ b/objed-objects.el @@ -1555,6 +1555,20 @@ comments." begin))) +(defun objed--get-align-section () + "Get region bounds of current align section." + (require 'align) + (let ((olddef (symbol-function 'align-region))) + (cl-letf (((symbol-function 'align-region) + (lambda (beg end &rest args) + (if (and beg end) + (throw 'region (cons beg end)) + (apply olddef beg end + args))))) + (catch 'region + (align nil nil))))) + + ;; * Object definitions