* registry.el (registry-prune): Make the sort function optional.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8147867..46c5bc9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,7 +2,7 @@
 
        * registry.el (registry-prune-hard-candidates)
        (registry-prune-soft-candidates): Helper methods for registry pruning.
-       (registry-prune): Use them.
+       (registry-prune): Use them.  Make the sort function optional.
 
 2011-05-10  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/registry.el b/lisp/registry.el
index b3123f6..ffba2e1 100644 (file)
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -314,7 +314,7 @@ Errors out if the key exists already."
 This is the key count of the :data slot."
     (hash-table-count (oref db :data)))
 
-  (defmethod registry-prune ((db registry-db) sortfun)
+  (defmethod registry-prune ((db registry-db) &optional sortfun)
     "Prunes the registry-db object THIS.
 Removes only entries without the :precious keys if it can,
 then removes oldest entries first.