branch: master
commit 4162bd48d33d82164ac2855b7d9b1e4a33210f23
Author: Ian Dunn <du...@gnu.org>
Commit: Ian Dunn <du...@gnu.org>
Changed name of registered checker
* paced.el (paced-dictionary-key-registered-p): Renamed from
"paced-dictionary-registered-p".
(paced-ensure-registered)
(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
