From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 11 Mar 2015 23:01:33 +0000 (+0000)
Subject: registry.el (registry-db): Temporary fix old Emacsen compilation
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=0c38751cb18d51ed294dabcfb16ed21a610e2daa

registry.el (registry-db): Temporary fix old Emacsen compilation
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62baeb5c5..3a3a2a9a5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2015-03-11  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* registry.el (registry-db): Temporary fix old Emacsen compilation.
+
 2015-03-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* gnus-registry.el (gnus-registry-handle-action)
diff --git a/lisp/registry.el b/lisp/registry.el
index f26101fa0..ef076a525 100644
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -110,6 +110,7 @@
 (defvar registry-db-version 0.2
   "The current version of the registry format.")
 
+(eval (backquote
 (defclass registry-db (eieio-persistent)
   ((version :initarg :version
             :initform nil
@@ -121,7 +122,7 @@
 	     ;; value rather than an expression, so in order to get the value
 	     ;; of `most-positive-fixnum', we need to use an
 	     ;; expression that's not just a symbol.
-             :initform (symbol-value 'most-positive-fixnum)
+             :initform ,(symbol-value 'most-positive-fixnum)
              :type integer
              :custom integer
              :documentation "The maximum number of registry entries.")
@@ -146,6 +147,7 @@
    (data :initarg :data
          :type hash-table
          :documentation "The data hashtable.")))
+))
 
 (defmethod initialize-instance :BEFORE ((this registry-db) slots)
   "Check whether a registry object needs to be upgraded."