From: Artur Malabarba Date: Wed, 18 May 2016 17:37:27 +0000 (-0300) Subject: Merge commit 'eaab57092284028b1567622c96d9b332de3c7a4d' X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/4c77f20e144dc409e3c59abdb7105fb0db41ee54?hp=6ad010c862c073ef7d85634345d4668a65fb9272 Merge commit 'eaab57092284028b1567622c96d9b332de3c7a4d' --- diff --git a/packages/aggressive-indent/aggressive-indent.el b/packages/aggressive-indent/aggressive-indent.el index ac3ff96fa..9c1f7d7b2 100644 --- a/packages/aggressive-indent/aggressive-indent.el +++ b/packages/aggressive-indent/aggressive-indent.el @@ -348,10 +348,6 @@ or messages." "List of (left right) limit of regions changed in the last command loop.") (make-variable-buffer-local 'aggressive-indent--changed-list) -(defvar aggressive-indent--balanced-parens t - "Non-nil if the current-buffer has balanced parens.") -(make-variable-buffer-local 'aggressive-indent--balanced-parens) - (defun aggressive-indent--proccess-changed-list-and-indent () "Indent the regions in `aggressive-indent--changed-list'." (let ((inhibit-modification-hooks t) @@ -371,7 +367,7 @@ or messages." (defun aggressive-indent--indent-if-changed () "Indent any region that changed in the last command loop." - (when (and aggressive-indent--changed-list aggressive-indent--balanced-parens) + (when aggressive-indent--changed-list (save-excursion (save-selected-window (unless (or (run-hook-wrapped 'aggressive-indent--internal-dont-indent-if #'eval) @@ -380,19 +376,10 @@ or messages." (redisplay) (aggressive-indent--proccess-changed-list-and-indent))))))) -(defun aggressive-indent--check-parens () - "Check if parens are balanced in the current buffer. -Store result in `aggressive-indent--balanced-parens'." - (setq aggressive-indent--balanced-parens - (save-excursion - (ignore-errors - (zerop (car (syntax-ppss (point-max)))))))) - (defun aggressive-indent--keep-track-of-changes (l r &rest _) "Store the limits (L and R) of each change in the buffer." (when aggressive-indent-mode - (push (list l r) aggressive-indent--changed-list) - (aggressive-indent--check-parens))) + (push (list l r) aggressive-indent--changed-list))) ;;; Minor modes ;;;###autoload