[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/wcheck-mode f92887e 08/39: Eval wcheck--buffer-data-key
From: |
Teemu Likonen |
Subject: |
[elpa] externals/wcheck-mode f92887e 08/39: Eval wcheck--buffer-data-key-index only once in wcheck--buffer-data-get |
Date: |
Sun, 4 Oct 2020 07:55:18 -0400 (EDT) |
branch: externals/wcheck-mode
commit f92887e2699894c1a77cc7ba35c07e22c0230da3
Author: Teemu Likonen <tlikonen@iki.fi>
Commit: Teemu Likonen <tlikonen@iki.fi>
Eval wcheck--buffer-data-key-index only once in wcheck--buffer-data-get
---
wcheck-mode.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 427165b..70dcea6 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -2179,12 +2179,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)
- [elpa] externals/wcheck-mode 4cf2503 09/39: Update MELPA URL, (continued)
- [elpa] externals/wcheck-mode 4cf2503 09/39: Update MELPA URL, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 866954f 11/39: New version, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 6f5e9fa 12/39: Small changes to introduction texts, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 53555c6 17/39: Fix wcheck--generate-face-predicate: return lambda in all cases, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode ed77898 16/39: Remove Marmalade package archive, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 2b696d5 18/39: Revert "Use jit-lock-fontify-now instead of font-lock-fontify-region", Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 03ea5f1 01/39: Sync changes from GNU Elpa (minor fixes; no functional changes), Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode a8dcccb 02/39: Allow exec-path search to find external program, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 011219f 03/39: Merge pull request #6 from justbur/master, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 0edd086 06/39: Update copyright year: 2015, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode f92887e 08/39: Eval wcheck--buffer-data-key-index only once in wcheck--buffer-data-get,
Teemu Likonen <=
- [elpa] externals/wcheck-mode a6e2865 10/39: Add link to PGP key, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 07fdd27 14/39: Update copyright year, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 9693712 20/39: If exists use font-lock-ensure, else font-lock-fontify-region, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 6aa2662 24/39: Fix `wcheck--language-exists-p` if executable does not exist, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 9564d6da 30/39: Add (require 'outline) to wcheck--timer-jump-event function, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode a2affd8 28/39: Improve the doc string of wcheck--generate-face-predicate function, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 09f0c3a 32/39: Make --generate-face-predicate to take advantage of lexical closures, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode 7fb39bc 38/39: README: In install instructions refer to GNU Elpa only, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode d56345a 23/39: Change PGP key's url, Teemu Likonen, 2020/10/04
- [elpa] externals/wcheck-mode e459208 31/39: Update copyright year (2019), Teemu Likonen, 2020/10/04