[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 777c823: * registry.el (registry-db): Set default s
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 777c823: * registry.el (registry-db): Set default slot later. |
Date: |
Thu, 18 Dec 2014 21:00:46 +0000 |
branch: master
commit 777c8235f118fa9aec2465b61cca0bdc220fd419
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
* registry.el (registry-db): Set default slot later.
This is because its value is not a literal integer.
---
lisp/gnus/ChangeLog | 5 +++++
lisp/gnus/registry.el | 4 +++-
2 files changed, 8 insertions(+), 1 deletions(-)
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 34dd919..6f0ea0f 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-18 Paul Eggert <address@hidden>
+
+ * registry.el (registry-db): Set default slot later.
+ This is because its value is not a literal integer.
+
2014-12-18 Stefan Monnier <address@hidden>
* mm-util.el (mm-with-unibyte-current-buffer): Mark obsolete and
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index d086d64..cc18407 100644
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 777c823: * registry.el (registry-db): Set default slot later.,
Paul Eggert <=