branch: externals/ebdb
commit 2d74de48580ea387832d9d2f544572473edfc2e0
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Use autoload cookies on defclass statements
* ebdb.el: There was no reason to be calling `eieio-defclass-autoload'
myself.
* ebdb-gnus.el: add cookie
* ebdb-org.el: etc
* ebdb-pgp.el: etc
---
ebdb-gnus.el | 4 ++--
ebdb-org.el | 2 +-
ebdb-pgp.el | 1 +
ebdb.el | 33 ---------------------------------
4 files changed, 4 insertions(+), 36 deletions(-)
diff --git a/ebdb-gnus.el b/ebdb-gnus.el
index c89422c..586e5ef 100644
--- a/ebdb-gnus.el
+++ b/ebdb-gnus.el
@@ -52,6 +52,7 @@
;;; Gnus-specific field types. All should subclass
;;; `ebdb-field-user'.
+;;;###autoload
(defclass ebdb-gnus-score-field (ebdb-field-user)
((score
:type (or null number)
@@ -160,8 +161,7 @@ addresses better than the traditionally static global
scorefile."
;; Imap support (Uwe Brauer)
;;
-;; Why wouldn't we just use the same "private" field for imap? Why
-;; would this need to be a separate field class?
+;;;###autoload
(defclass ebdb-gnus-imap-field (ebdb-field-user)
((group
:type string
diff --git a/ebdb-org.el b/ebdb-org.el
index 07ebe09..011157e 100644
--- a/ebdb-org.el
+++ b/ebdb-org.el
@@ -125,7 +125,7 @@ potential tags for completion.")
(push '(ebdb-org-field-tags ":" ":") ebdb-separator-alist)
-
+;;;###autoload
(defclass ebdb-org-field-tags (ebdb-field-user)
((tags
:type (list-of string)
diff --git a/ebdb-pgp.el b/ebdb-pgp.el
index e3eefae..bc9f391 100644
--- a/ebdb-pgp.el
+++ b/ebdb-pgp.el
@@ -105,6 +105,7 @@ See info node `(message)security'."
(symbol :tag "Encrypt method")))
:group 'ebdb-utilities-pgp)
+;;;###autoload
(defclass ebdb-field-pgp (ebdb-field-user)
((action
:initarg :action
diff --git a/ebdb.el b/ebdb.el
index 22f811c..6b52893 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -5141,38 +5141,5 @@ prompt users for more complex search criteria, if
necessary.")
(read-string (format "Search records %smatching regexp: "
(if ebdb-search-invert "not " ""))))
-;; Create autoload statements for fields defined in other files.
-;; Might save users some small surprises.
-
-(eieio-defclass-autoload
- 'ebdb-org-field-tags
- 'ebdb-field-user
- "ebdb-org"
- "Field holding Org-style tags.")
-
-(eieio-defclass-autoload
- 'ebdb-gnus-score-field
- 'ebdb-field-user
- "ebdb-gnus"
- "Gnus field holding record score.")
-
-(eieio-defclass-autoload
- 'ebdb-gnus-private-field
- 'ebdb-field-user
- "ebdb-gnus"
- "Gnus field holding private mailbox name.")
-
-(eieio-defclass-autoload
- 'ebdb-gnus-imap-field
- 'ebdb-field-user
- "ebdb-gnus"
- "Gnus field holding private IMAP mailbox name.")
-
-(eieio-defclass-autoload
- 'ebdb-field-pgp
- 'ebdb-field-user
- "ebdb-pgp"
- "Field holding default pgp action when sending messages to this record.")
-
(provide 'ebdb)
;;; ebdb.el ends here
