From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 12 Feb 2016 07:34:15 +0000 (+1100)
Subject: Finish up cl-defmethoding registry,el
X-Git-Tag: emacs-26.0.90~2605
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=675787bcd3b666fe5dd19e9eeba6ddd5fc5df0d5;p=emacs.git

Finish up cl-defmethoding registry,el

* lisp/gnus/registry.el (initialize-instance): Use cl-defmethod.
---

diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index d89ba48eabb..6684c258827 100644
--- a/lisp/gnus/registry.el
+++ b/lisp/gnus/registry.el
@@ -129,7 +129,7 @@
          :type hash-table
          :documentation "The data hashtable.")))
 
-(defmethod initialize-instance :BEFORE ((this registry-db) slots)
+(cl-defmethod initialize-instance :before ((this registry-db) slots)
   "Check whether a registry object needs to be upgraded."
   ;; Hardcoded upgrade routines.  Version 0.1 to 0.2 requires the
   ;; :max-soft slot to disappear, and the :max-hard slot to be renamed
@@ -146,7 +146,7 @@
       (cl-remf slots :max-hard)
       (cl-remf slots :max-soft))))
 
-(defmethod initialize-instance :AFTER ((this registry-db) slots)
+(cl-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)