branch: externals/bbdb
commit 799fd0d2f207ec42de8b3726babc291c475cd466
Author: Roland Winkler <[email protected]>
Commit: Roland Winkler <[email protected]>
Silence the compiler.
---
lisp/bbdb.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/bbdb.el b/lisp/bbdb.el
index e18c54b76c..99316926f4 100644
--- a/lisp/bbdb.el
+++ b/lisp/bbdb.el
@@ -909,7 +909,8 @@ The strings HEADER belong to CLASS.
The most important HEADERs should appear first.
If `bbdb-message-all-addresses' is nil, use only the first matching header."
:group 'bbdb-mua
- :type 'list)
+ :type '(repeat (cons (symbol :tag "Class")
+ (repeat (string :tag "Header")))))
(defcustom bbdb-message-all-addresses nil
"If t `bbdb-update-records' returns all mail addresses of a message.
@@ -4043,7 +4044,7 @@ FIELD-LIST is the list of actually displayed FIELDS."
`(xfields ,xfield)))))))
;; delete the trailing "; "
(if (looking-back "; " nil)
- (backward-delete-char 2))
+ (delete-char -2))
(insert "\n")))
(defun bbdb-display-record-multi-line (record layout field-list)
