[elpa] master ca08b20 4/7: wcheck-mode: evaluate wcheck--buffer-data-key-index only once

[Teemu Likonen]

branch: master
commit ca08b20c1a61d7af7447bf875f38ca9746cf7f1d
Author: Teemu Likonen <address@hidden>
Commit: Teemu Likonen <address@hidden>

    wcheck-mode: evaluate wcheck--buffer-data-key-index only once
---
 packages/wcheck-mode/wcheck-mode.el |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/packages/wcheck-mode/wcheck-mode.el 
b/packages/wcheck-mode/wcheck-mode.el
index 34838ae..3e7e01e 100644
--- a/packages/wcheck-mode/wcheck-mode.el
+++ b/packages/wcheck-mode/wcheck-mode.el
@@ -2180,12 +2180,13 @@ But only if it doesn't exist already."
 If optional TARGET-KEY is not given return all data associated
 with the matching KEY VALUE."
   (catch 'answer
-    (dolist (item wcheck--buffer-data)
-      (when (equal value (aref item (wcheck--buffer-data-key-index key)))
-        (throw 'answer (if target-key
-                           (aref item (wcheck--buffer-data-key-index
-                                       target-key))
-                         item))))))
+    (let ((index (wcheck--buffer-data-key-index key)))
+      (dolist (item wcheck--buffer-data)
+        (when (equal value (aref item index))
+          (throw 'answer (if target-key
+                             (aref item (wcheck--buffer-data-key-index
+                                         target-key))
+                           item)))))))
 
 
 (defun wcheck--buffer-data-get-all (&optional key)