diff options
| author | Lars Ingebrigtsen | 2016-02-12 18:34:15 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-12 18:34:15 +1100 |
| commit | 675787bcd3b666fe5dd19e9eeba6ddd5fc5df0d5 (patch) | |
| tree | 5fd6b3fd273d3fb063ec91c6643b85484b16aeb0 | |
| parent | bd066f82903ac055109882189646d39c2a75e044 (diff) | |
| download | emacs-675787bcd3b666fe5dd19e9eeba6ddd5fc5df0d5.tar.gz emacs-675787bcd3b666fe5dd19e9eeba6ddd5fc5df0d5.zip | |
Finish up cl-defmethoding registry,el
* lisp/gnus/registry.el (initialize-instance): Use cl-defmethod.
| -rw-r--r-- | 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 d89ba48eabb..6684c258827 100644 --- a/lisp/gnus/registry.el +++ b/lisp/gnus/registry.el | |||
| @@ -129,7 +129,7 @@ | |||
| 129 | :type hash-table | 129 | :type hash-table |
| 130 | :documentation "The data hashtable."))) | 130 | :documentation "The data hashtable."))) |
| 131 | 131 | ||
| 132 | (defmethod initialize-instance :BEFORE ((this registry-db) slots) | 132 | (cl-defmethod initialize-instance :before ((this registry-db) slots) |
| 133 | "Check whether a registry object needs to be upgraded." | 133 | "Check whether a registry object needs to be upgraded." |
| 134 | ;; Hardcoded upgrade routines. Version 0.1 to 0.2 requires the | 134 | ;; Hardcoded upgrade routines. Version 0.1 to 0.2 requires the |
| 135 | ;; :max-soft slot to disappear, and the :max-hard slot to be renamed | 135 | ;; :max-soft slot to disappear, and the :max-hard slot to be renamed |
| @@ -146,7 +146,7 @@ | |||
| 146 | (cl-remf slots :max-hard) | 146 | (cl-remf slots :max-hard) |
| 147 | (cl-remf slots :max-soft)))) | 147 | (cl-remf slots :max-soft)))) |
| 148 | 148 | ||
| 149 | (defmethod initialize-instance :AFTER ((this registry-db) slots) | 149 | (cl-defmethod initialize-instance :after ((this registry-db) slots) |
| 150 | "Set value of data slot of THIS after initialization." | 150 | "Set value of data slot of THIS after initialization." |
| 151 | (with-slots (data tracker) this | 151 | (with-slots (data tracker) this |
| 152 | (unless (member :data slots) | 152 | (unless (member :data slots) |