[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/mmm-mode f86bfe1 1/2: Fix mmm-indent-line-narrowed
From: |
Dmitry Gutov |
Subject: |
[elpa] externals/mmm-mode f86bfe1 1/2: Fix mmm-indent-line-narrowed |
Date: |
Thu, 21 Jun 2018 09:20:09 -0400 (EDT) |
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)