[elpa] externals/expand-region 0f3b076369 1/2: Revert "expand-region: Memoize expansion results"

[ELPA Syncer]

branch: externals/expand-region
commit 0f3b0763694b4d16a4ad272cef5691ffe759629b
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    Revert "expand-region: Memoize expansion results"
    
    This reverts commit af2916b89d8b5e520ff4ee7214bab62a0fdb3cec.
---
 expand-region-core.el | 37 +++++++++++--------------------------
 expand-region.el      |  2 --
 2 files changed, 11 insertions(+), 28 deletions(-)

diff --git a/expand-region-core.el b/expand-region-core.el
index e2829cdcb3..1f60dbe974 100644
--- a/expand-region-core.el
+++ b/expand-region-core.el
@@ -50,12 +50,6 @@
   "t if this is the first invocation of `er/expand-region' or 
`er/contract-region'."
   (not (memq last-command '(er/expand-region er/contract-region))))
 
-(defvar-local er--saved-expansions nil
-  "List of region data used to avoid redundant computation.
-
-When expand-region or contract-region is called repeatedly, save
-the data here and reuse when possible.")
-
 (defun er--prepare-expanding ()
   (when (and (er--first-invocation)
              (not (use-region-p)))
@@ -115,26 +109,17 @@ moving point or mark as little as possible."
       (setq start (point)))
 
     (er--save-excursion
-     (while try-list
-       (ignore-errors
-         (save-mark-and-excursion
-           ;; Try expansion or fetch memoized value
-           (if-let* ((try-func (car try-list))
-                     ((not (er--first-invocation)))
-                     (bounds (alist-get try-func er--saved-expansions))
-                     ((or (>= (point) (car bounds)) (<= (mark) (cadr 
bounds)))))
-               (progn (set-mark (cadr bounds))
-                      (goto-char (car bounds)))
-             (funcall try-func)
-             (setf (alist-get try-func er--saved-expansions) (list (point) 
(mark))))
-           ;; Test expansion against best expansion so far
-           (when (and (region-active-p)
-                      (er--this-expansion-is-better start end best-start 
best-end))
-             (setq best-start (point))
-             (setq best-end (mark))
-             (when (and er--show-expansion-message (not (minibufferp)))
-               (message "%S" (car try-list))))))
-       (setq try-list (cdr try-list))))
+       (while try-list
+         (ignore-errors
+           (save-mark-and-excursion
+             (funcall (car try-list))
+             (when (and (region-active-p)
+                        (er--this-expansion-is-better start end best-start 
best-end))
+               (setq best-start (point))
+               (setq best-end (mark))
+               (when (and er--show-expansion-message (not (minibufferp)))
+                 (message "%S" (car try-list))))))
+         (setq try-list (cdr try-list))))
 
     (setq deactivate-mark nil)
     ;; if smart cursor enabled, decide to put it at start or end of region:
diff --git a/expand-region.el b/expand-region.el
index 78a9bef446..ebaaca2967 100644
--- a/expand-region.el
+++ b/expand-region.el
@@ -157,8 +157,6 @@ before calling `er/expand-region' for the first time."
       (setq arg (- arg 1))
       (when (eq 'early-exit (er--expand-region-1))
         (setq arg 0)))
-    (when (er--first-invocation)
-      (setq-local er--saved-expansions nil))
     (when (and expand-region-fast-keys-enabled
                (not (memq last-command '(er/expand-region 
er/contract-region))))
       (er/prepare-for-more-expansions))))