[elpa] externals/mmm-mode f86bfe1 1/2: Fix mmm-indent-line-narrowed

[Dmitry Gutov]

branch: externals/mmm-mode
commit f86bfe19394e50cf0b65fd2278e0a19b7b5b7419
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Fix mmm-indent-line-narrowed
    
    To actually call the indent function inside the narrowing
    
    Cc @AdamNiederer
---
 mmm-region.el | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/mmm-region.el b/mmm-region.el
index 007f211..5eab4b2 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -888,22 +888,21 @@ indentation function. See `mmm-indent-line' as the 
starting point.")
 Works like `mmm-indent-line', but narrows the buffer before indenting to
 appease modes which rely on constructs like (point-min) to indent."
   (interactive)
-  (funcall
-   (save-excursion
-     (back-to-indentation)
-     (mmm-update-submode-region)
-     (let ((indent-function (get
-                             (if (and mmm-current-overlay
-                                      (> (overlay-end mmm-current-overlay) 
(point)))
-                                 mmm-current-submode
-                               mmm-primary-mode)
-                             'mmm-indent-line-function)))
-       (if mmm-current-overlay
-           (save-restriction
-             (narrow-to-region (overlay-start mmm-current-overlay)
-                               (overlay-end mmm-current-overlay))
-             indent-function)
-         indent-function)))))
+  (save-excursion
+    (back-to-indentation)
+    (mmm-update-submode-region)
+    (let ((indent-function (get
+                            (if (and mmm-current-overlay
+                                     (> (overlay-end mmm-current-overlay) 
(point)))
+                                mmm-current-submode
+                              mmm-primary-mode)
+                            'mmm-indent-line-function)))
+      (if mmm-current-overlay
+          (save-restriction
+            (narrow-to-region (overlay-start mmm-current-overlay)
+                              (overlay-end mmm-current-overlay))
+            (funcall indent-function))
+        (funcall indent-function)))))
 
 (defun mmm-indent-line ()
   (interactive)