[elpa] externals/aggressive-indent 1d7185d 17/43: Fix #106 - Define variable: aggressive-indent-region-function

[Stefan Monnier]

branch: externals/aggressive-indent
commit 1d7185d27020c3e91a7da21800716079297938ac
Author: Artur Malabarba <bruce.connor.am@gmail.com>
Commit: Artur Malabarba <bruce.connor.am@gmail.com>

    Fix #106 - Define variable: aggressive-indent-region-function
---
 aggressive-indent.el | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

diff --git a/aggressive-indent.el b/aggressive-indent.el
index a3b2b82..8718373 100644
--- a/aggressive-indent.el
+++ b/aggressive-indent.el
@@ -280,6 +280,12 @@ erroring again."
                   (message aggressive-indent--error-message er))))))
 
 ;;; Indenting defun
+(defcustom aggressive-indent-region-function #'indent-region
+  "Function called to indent a region.
+It is called with two arguments, the region beginning and end."
+  :risky t
+  :type 'function)
+
 ;;;###autoload
 (defun aggressive-indent-indent-defun (&optional l r)
   "Indent current defun.
@@ -288,13 +294,13 @@ If L and R are provided, use them for finding the start 
and end of defun."
   (interactive)
   (let ((p (point-marker)))
     (set-marker-insertion-type p t)
-    (indent-region
-     (save-excursion
-       (when l (goto-char l))
-       (beginning-of-defun 1) (point))
-     (save-excursion
-       (when r (goto-char r))
-       (end-of-defun 1) (point)))
+    (funcall aggressive-indent-region-function
+             (save-excursion
+               (when l (goto-char l))
+               (beginning-of-defun 1) (point))
+             (save-excursion
+               (when r (goto-char r))
+               (end-of-defun 1) (point)))
     (goto-char p)))
 
 (defun aggressive-indent--softly-indent-defun (&optional l r)
@@ -327,7 +333,7 @@ Return non-nil only if the line's indentation actually 
changed."
           (forward-sexp 1)
           (comment-forward (point-max)))
         (when (looking-at "^")
-          (indent-region line-end (1- (point))))
+          (funcall aggressive-indent-region-function line-end (1- (point))))
         (skip-chars-forward "[:blank:]")))))
 
 (defun aggressive-indent--extend-end-to-whole-sexps (beg end)
@@ -342,8 +348,8 @@ Return non-nil only if the line's indentation actually 
changed."
 ;;;###autoload
 (defun aggressive-indent-indent-region-and-on (l r)
   "Indent region between L and R, and then some.
-Call `indent-region' between L and R, and then keep indenting
-until nothing more happens."
+Call `aggressive-indent-region-function' between L and R, and
+then keep indenting until nothing more happens."
   (interactive "r")
   (let ((p (point-marker))
         was-begining-of-line)
@@ -359,7 +365,7 @@ until nothing more happens."
               (cl-incf l)))
           ;; Indent the affected region.
           (goto-char r)
-          (unless (= l r) (indent-region l r))
+          (unless (= l r) (funcall aggressive-indent-region-function l r))
           ;; And then we indent each following line until nothing happens.
           (forward-line 1)
           (skip-chars-forward "[:blank:]\n\r\xc")