diff options
Diffstat (limited to 'lisp/gnus/registry.el')
| -rw-r--r-- | lisp/gnus/registry.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el index 9830fc30c98..79f07812b2d 100644 --- a/lisp/gnus/registry.el +++ b/lisp/gnus/registry.el @@ -249,6 +249,11 @@ With assert non-nil, errors out if the key does not exist already." (remhash key data))) keys)) + (defmethod registry-size ((db registry-db)) + "Returns the size of the registry-db object THIS. +This is the key count of the :data slot." + (hash-table-count (oref db :data))) + (defmethod registry-full ((db registry-db)) "Checks if registry-db THIS is full." (>= (registry-size db) @@ -297,11 +302,6 @@ Errors out if the key exists already." (registry-lookup-secondary-value db tr val value-keys)))) (oref db :data)))))) - (defmethod registry-size ((db registry-db)) - "Returns the size of the registry-db object THIS. -This is the key count of the :data slot." - (hash-table-count (oref db :data))) - (defmethod registry-prune ((db registry-db) &optional sortfun) "Prunes the registry-db object THIS. Removes only entries without the :precious keys if it can, |