registry.el (registry-db): Set default slot later
authorPaul Eggert <eggert@cs.ucla.edu>
Thu, 18 Dec 2014 22:47:26 +0000 (22:47 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Thu, 18 Dec 2014 22:47:26 +0000 (22:47 +0000)
lisp/ChangeLog
lisp/registry.el

index d476e2a..5f25801 100644 (file)
@@ -1,3 +1,8 @@
+2014-12-18  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * registry.el (registry-db): Set default slot later.
+       This is because its value is not a literal integer.
+
 2014-12-18  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * registry.el (registry-db): Fix default registry-db max-size.
index 162e876..f0b3154 100644 (file)
@@ -27,7 +27,7 @@
 
 ;; version: a float
 
-;; max-size: an integer, default 5000000
+;; max-size: an integer, default most-positive-fixnum
 
 ;; prune-factor: a float between 0 and 1, default 0.1
 
             :type (or null float)
             :documentation "The registry version.")
    (max-size :initarg :max-size
-             :initform 5000000
+             ;; :initform most-positive-fixnum ;; see below
              :type integer
              :custom integer
              :documentation "The maximum number of registry entries.")
    (data :initarg :data
          :type hash-table
          :documentation "The data hashtable.")))
+;; Do this separately, since defclass doesn't allow expressions in :initform.
+(oset-default registry-db max-size most-positive-fixnum)
 
 (defmethod initialize-instance :BEFORE ((this registry-db) slots)
   "Check whether a registry object needs to be upgraded."