Commit 777c8235 authored by Paul Eggert's avatar Paul Eggert
Browse files

* registry.el (registry-db): Set default slot later.

This is because its value is not a literal integer.
parent 17589518
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 Stefan Monnier <monnier@iro.umontreal.ca>
 
* mm-util.el (mm-with-unibyte-current-buffer): Mark obsolete and
......
......@@ -98,7 +98,7 @@
:type (or null float)
:documentation "The registry version.")
(max-size :initarg :max-size
:initform most-positive-fixnum
;; :initform most-positive-fixnum ;; see below
:type integer
:custom integer
:documentation "The maximum number of registry entries.")
......@@ -123,6 +123,8 @@
(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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment