From: Lars Ingebrigtsen Date: Fri, 12 Feb 2016 05:55:23 +0000 (+1100) Subject: Partially revert the defmethod->cl-defmethod change in registry.el X-Git-Tag: emacs-26.0.90~2612 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ff58f69651faa1aa36ff45d4012a19938642412;p=emacs.git Partially revert the defmethod->cl-defmethod change in registry.el * lisp/gnus/registry.el (initialize-instance): Use defmethod, since cl-defmethod doesn't work with :after. (initialize-instance): Ditto, but with :before. --- diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el index 9182920b87f..d89ba48eabb 100644 --- a/lisp/gnus/registry.el +++ b/lisp/gnus/registry.el @@ -129,7 +129,7 @@ :type hash-table :documentation "The data hashtable."))) -(cl-defmethod initialize-instance :BEFORE ((this registry-db) slots) +(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)))) -(cl-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)