[elpa] externals/bbdb 4c20a48: bbdb-tex-alist, bbdb-tex-address-layout: Declare defcustom type.

[Roland Winkler]

branch: externals/bbdb
commit 4c20a48de0256afe6654f67104871fa4aa9b5aee
Author: Roland Winkler <address@hidden>
Commit: Roland Winkler <address@hidden>

    bbdb-tex-alist, bbdb-tex-address-layout: Declare defcustom type.
---
 bbdb-tex.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/bbdb-tex.el b/bbdb-tex.el
index 38654e3..fbdf95b 100644
--- a/bbdb-tex.el
+++ b/bbdb-tex.el
@@ -241,7 +241,15 @@ The remainder are lists LIST that should have one of these 
forms:
  (epilog STRING)
 
   The string STRING is inserted at the end of the buffer."
-  :group 'bbdb-utilities-tex)
+  :group 'bbdb-utilities-TeX
+  :type '(repeat (cons (symbol :tag "rule")
+                       (repeat
+                        (choice (cons :tag "demand" (const demand) sexp)
+                                (list :tag "prolog" (const prolog) string)
+                                (cons :tag "record" (const record) sexp)
+                                (list :tag "separator" (const separator) 
string)
+                                (list :tag "epilog" (const epilog) string)
+                                (cons :tag "options" (const options) sexp))))))
 
 (defcustom bbdb-tex-rule-default 'multi-line
   "Default rule for BBDB tex.
@@ -289,7 +297,9 @@ The elements EDIT of `bbdb-address-format-list' are 
ignored."
 (defcustom bbdb-tex-address-layout 2
   "Address layout according to `bbdb-tex-address-format-list'.
 2 is multi-line layout, 3 is one-line layout."
-  :group 'bbdb-utilities-tex)
+  :group 'bbdb-utilities-TeX
+  :type '(choice (const :tag "multi-line" 2)
+                 (const :tag "one-line" 3)))
 
 (defcustom bbdb-tex-file "~/bbdb.tex"
   "Default file name for TeXing BBDB."