[elpa] externals/ebdb f349803 3/3: Fix method definition location for ebdb-field-location

[Eric Abrahamsen]

branch: externals/ebdb
commit f349803cb054648e3bf3377a9be8ef0b1a5a43d9
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Fix method definition location for ebdb-field-location
    
    * ebdb.el (ebdb-location-current-time): Constantly forget that
    specializers can't be used until after the class has been defined.
---
 ebdb.el | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index da4e51c..04f289b 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2210,18 +2210,6 @@ See `ebdb-url-valid-schemes' for a list of acceptable 
schemes."
     (concat location-label (when timezone
                             (format ": %s" timezone)))))
 
-(cl-defmethod ebdb-location-current-time ((rec ebdb-record)
-                                         (field ebdb-field-location))
-  "Display the current time for REC.
-Uses the timezone value present in FIELD, and raises an error if
-there is no timezone value."
-  (with-slots (timezone) field
-    (if timezone
-       (message "%s's current time is: %s"
-                (ebdb-string rec)
-                (format-time-string "%c" nil timezone))
-      (signal 'ebdb-error (list "No timezone present")))))
-
 ;; Gender field
 
 (defclass ebdb-field-gender (ebdb-field-user
@@ -2974,6 +2962,18 @@ by the field, or else raising the error 
`ebdb-related-unfound'.")
 ;; The following functions are here because they need to come after
 ;; `ebdb-record' has been defined.
 
+(cl-defmethod ebdb-location-current-time ((rec ebdb-record)
+                                         (field ebdb-field-location))
+  "Display the current time for REC.
+Uses the timezone value present in FIELD, and raises an error if
+there is no timezone value."
+  (with-slots (timezone) field
+    (if timezone
+       (message "%s's current time is: %s"
+                (ebdb-string rec)
+                (format-time-string "%c" nil timezone))
+      (signal 'ebdb-error (list "No timezone present")))))
+
 (cl-defmethod ebdb-record-insert-field ((record ebdb-record)
                                        (field ebdb-field-singleton)
                                        &optional _slot)