summaryrefslogtreecommitdiff
path: root/lisp/gnus/registry.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-05-22 22:05:27 -0700
committerGlenn Morris <rgm@gnu.org>2013-05-22 22:05:27 -0700
commitc7641e3c89bbd310dea7d81da8599823b821057e (patch)
tree2a695822dd6d4d3ccce790dcddad3c13cdfed05f /lisp/gnus/registry.el
parente2aec513de00c1bf420d0258c708ba25a9ab3eda (diff)
downloademacs-c7641e3c89bbd310dea7d81da8599823b821057e.tar.gz
Silence some gnus compilation warnings
* gnus/mm-decode.el: No need to load term when compiling. (term-mode, term-char-mode): Declare. * gnus/mm-util.el: No need to load jka-compr when compiling. (jka-compr-acceptable-retval-list, jka-compr-make-temp-name): Declare. * gnus/nnmaildir.el: Require is automatically eval-and-compile. (nnmail): Require at run-time too. * gnus/registry.el (registry-size): Move definition before use.
Diffstat (limited to 'lisp/gnus/registry.el')
-rw-r--r--lisp/gnus/registry.el10
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,