[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 651812f 14/17: Fix #67 - Avoid changing the selected windo
From: |
Artur Malabarba |
Subject: |
[elpa] master 651812f 14/17: Fix #67 - Avoid changing the selected window |
Date: |
Tue, 09 Feb 2016 19:59:05 +0000 |
branch: master
commit 651812f8fca9c0beb337a04438949bbfb879b5f7
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Fix #67 - Avoid changing the selected window
---
aggressive-indent.el | 28 +++++++++++++++-------------
1 files changed, 15 insertions(+), 13 deletions(-)
diff --git a/aggressive-indent.el b/aggressive-indent.el
index 89c5284..febbe4f 100644
--- a/aggressive-indent.el
+++ b/aggressive-indent.el
@@ -352,19 +352,21 @@ or messages."
(defun aggressive-indent--indent-if-changed ()
"Indent any region that changed in the last command loop."
(when aggressive-indent--changed-list
- (unless (or (run-hook-wrapped 'aggressive-indent--internal-dont-indent-if
#'eval)
- (aggressive-indent--run-user-hooks))
- (while-no-input
- (redisplay)
- (let ((inhibit-modification-hooks t)
- (inhibit-point-motion-hooks t)
- (indent-function
- (if (cl-member-if #'derived-mode-p
aggressive-indent-modes-to-prefer-defun)
- #'aggressive-indent--softly-indent-defun
#'aggressive-indent--softly-indent-region-and-on)))
- (while aggressive-indent--changed-list
- (apply indent-function (car aggressive-indent--changed-list))
- (setq aggressive-indent--changed-list
- (cdr aggressive-indent--changed-list))))))))
+ (save-excursion
+ (save-selected-window
+ (unless (or (run-hook-wrapped
'aggressive-indent--internal-dont-indent-if #'eval)
+ (aggressive-indent--run-user-hooks))
+ (while-no-input
+ (redisplay)
+ (let ((inhibit-modification-hooks t)
+ (inhibit-point-motion-hooks t)
+ (indent-function
+ (if (cl-member-if #'derived-mode-p
aggressive-indent-modes-to-prefer-defun)
+ #'aggressive-indent--softly-indent-defun
#'aggressive-indent--softly-indent-region-and-on)))
+ (while aggressive-indent--changed-list
+ (apply indent-function (car aggressive-indent--changed-list))
+ (setq aggressive-indent--changed-list
+ (cdr aggressive-indent--changed-list))))))))))
(defun aggressive-indent--keep-track-of-changes (l r &rest _)
"Store the limits (L and R) of each change in the buffer."
- [elpa] master e76e522 04/17: Use redisplay instead of sit-for, (continued)
- [elpa] master e76e522 04/17: Use redisplay instead of sit-for, Artur Malabarba, 2016/02/09
- [elpa] master 970c5e3 05/17: Update Github username, Artur Malabarba, 2016/02/09
- [elpa] master 9666c73 06/17: replace control characters with call to `kbd', Artur Malabarba, 2016/02/09
- [elpa] master ad1a0b3 07/17: quoting fix, Artur Malabarba, 2016/02/09
- [elpa] master c7a2811 08/17: remove reference to names.el from README.md, Artur Malabarba, 2016/02/09
- [elpa] master ba4508b 09/17: fix indent, Artur Malabarba, 2016/02/09
- [elpa] master 1900801 10/17: Merge pull request #65 from spwhitton/control-char-fix, Artur Malabarba, 2016/02/09
- [elpa] master e613e7e 11/17: Merge pull request #66 from spwhitton/namesdep, Artur Malabarba, 2016/02/09
- [elpa] master 2467ee2 12/17: Remove changelog header, Artur Malabarba, 2016/02/09
- [elpa] master 0cf12ad 13/17: Change a \xc to \f, Artur Malabarba, 2016/02/09
- [elpa] master 651812f 14/17: Fix #67 - Avoid changing the selected window,
Artur Malabarba <=
- [elpa] master fd5cbf4 15/17: Add haskell-interactive-mode to excluded modes, Artur Malabarba, 2016/02/09
- [elpa] master 1b831d2 16/17: Version 1.5, Artur Malabarba, 2016/02/09
- [elpa] master c281465 17/17: Merge commit '1b831d21ac9688e3f31703f0b492202f6d24a75b', Artur Malabarba, 2016/02/09