From e2e8ae604f14d1acecb17a8213ebc3b891fd5e17 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Thu, 19 Mar 2015 13:42:43 +0800 Subject: [PATCH] Allow registry to reach full size before pruning * lisp/registry.el (registry-prune): Compare current size to max-size, not post-prune target size. --- lisp/ChangeLog | 5 +++++ lisp/registry.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2199e3942..2e44b9c5d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-03-19 Eric Abrahamsen + + * registry.el (registry-prune): Allow registry to reach full size + before pruning. + 2015-03-19 Eric Abrahamsen * registry.el (registry-collect-prune-candidates): Fix call to diff --git a/lisp/registry.el b/lisp/registry.el index a5d8239e6..3a4ffa2c8 100644 --- a/lisp/registry.el +++ b/lisp/registry.el @@ -365,7 +365,7 @@ Returns the number of deleted entries." (* (oref db :max-size) (oref db :prune-factor)))) candidates) - (if (> size target-size) + (if (> size (oref db :max-size)) (progn (setq candidates (registry-collect-prune-candidates -- 2.34.1