diff options
author | Glenn Morris <rgm@gnu.org> | 2013-05-22 22:05:27 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2013-05-22 22:05:27 -0700 |
commit | c7641e3c89bbd310dea7d81da8599823b821057e (patch) | |
tree | 2a695822dd6d4d3ccce790dcddad3c13cdfed05f /lisp/gnus/registry.el | |
parent | e2aec513de00c1bf420d0258c708ba25a9ab3eda (diff) | |
download | emacs-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.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, |