branch: externals/bbdb
commit 4c20a48de0256afe6654f67104871fa4aa9b5aee
Author: Roland Winkler <wink...@gnu.org>
Commit: Roland Winkler <wink...@gnu.org>
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."
