* registry.el (initialize-instance): Change :after to :AFTER to be

compatible with old EIEIO version in XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8d6e711..06ec3b1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-06  David Engster  <dengste@eml.cc>
+
+       * registry.el (initialize-instance): Change :after to :AFTER to be
+       compatible with old EIEIO version in XEmacs.
+

 2011-04-06  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-post-process-groups)
 2011-04-06  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-post-process-groups)

diff --git a/lisp/registry.el b/lisp/registry.el
index edaa4f5..f390c28 100644 (file)
--- a/lisp/registry.el
+++ b/lisp/registry.el
@@ -130,7 +130,7 @@
          :type hash-table
          :documentation "The data hashtable.")))
 
          :type hash-table
          :documentation "The data hashtable.")))
 

-(defmethod initialize-instance :after ((this registry-db) slots)
+(defmethod initialize-instance :AFTER ((this registry-db) slots)

   "Set value of data slot of THIS after initialization."
   (with-slots (data tracker) this
     (unless (member :data slots)
   "Set value of data slot of THIS after initialization."
   (with-slots (data tracker) this
     (unless (member :data slots)