[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 675787b: Finish up cl-defmethoding registry, el
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 675787b: Finish up cl-defmethoding registry, el |
Date: |
Fri, 12 Feb 2016 07:34:38 +0000 |
branch: master
commit 675787bcd3b666fe5dd19e9eeba6ddd5fc5df0d5
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Finish up cl-defmethoding registry,el
* lisp/gnus/registry.el (initialize-instance): Use cl-defmethod.
---
lisp/gnus/registry.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/registry.el b/lisp/gnus/registry.el
index d89ba48..6684c25 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 675787b: Finish up cl-defmethoding registry, el,
Lars Ingebrigtsen <=