[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 4162bd4 22/62: Changed name of registered checker

From: Ian Dunn
Subject: [elpa] master 4162bd4 22/62: Changed name of registered checker
Date: Sat, 9 Dec 2017 14:33:59 -0500 (EST)

branch: master
commit 4162bd48d33d82164ac2855b7d9b1e4a33210f23
Author: Ian Dunn <address@hidden>
Commit: Ian Dunn <address@hidden>

    Changed name of registered checker
    * paced.el (paced-dictionary-key-registered-p): Renamed from
      (paced-current-dictionary): Update name.
 paced.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/paced.el b/paced.el
index 728d0b6..243b61c 100644
--- a/paced.el
+++ b/paced.el
@@ -213,11 +213,11 @@ instead.")
 (defsubst paced-read-dictionary ()
   (completing-read "Dictionary: " (map-keys paced--registered-dictionaries)))
-(defsubst paced-dictionary-registered-p (key)
+(defsubst paced-dictionary-key-registered-p (key)
   (map-contains-key paced--registered-dictionaries key))
 (defsubst paced-ensure-registered (key)
-  (unless (paced-dictionary-registered-p key)
+  (unless (paced-dictionary-key-registered-p key)
     (error "No paced dictionary called '%s' has been registered." key)))
 (cl-defmethod paced-dictionary-register ((dict paced-dictionary))
@@ -342,7 +342,7 @@ be skipped."
     (while (and conditions
                 (not dictionary))
       (pcase-let* ((`(,condition . ,dict) (pop conditions)))
-        (when (and (paced-dictionary-registered-p dict)
+        (when (and (paced-dictionary-key-registered-p dict)
                    (paced-test-dict-enable-condition condition))
           (setq dictionary dict))))
     (when dictionary

reply via email to

[Prev in Thread] Current Thread [Next in Thread]