From a5000ebf787eaeab41a7ab1889a91be84e8c1c90 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 1 May 2016 23:11:06 -0300 Subject: [PATCH] Fix a bug in the take-10 logic --- aggressive-indent.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/aggressive-indent.el b/aggressive-indent.el index 241d0dee8..5c2f7b8b9 100644 --- a/aggressive-indent.el +++ b/aggressive-indent.el @@ -349,8 +349,9 @@ or messages." "List of (left right) limit of regions changed in the last command loop.") (make-variable-buffer-local 'aggressive-indent--changed-list) -(defvar-local aggressive-indent--balanced-parens t +(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'." @@ -360,7 +361,7 @@ or messages." (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))) ;; Take the 10 most recent changes. - (let ((cell (last aggressive-indent--changed-list 10))) + (let ((cell (nthcdr 10 aggressive-indent--changed-list))) (when cell (setcdr cell nil))) ;; (message "----------") (while aggressive-indent--changed-list -- 2.39.2