branch: externals/ebdb
commit 13f32ef16cd9d9d21132fca35f348868e20045bd
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Fix propertize call when formatting field values
* ebdb-com.el (ebdb-fmt-field): Looks like this was copy-paste bug
propagation.
---
ebdb-com.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/ebdb-com.el b/ebdb-com.el
index 1a582f9..1a0b841 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -474,8 +474,8 @@ property is the field instance itself."
((eq priority 'defunct) 'ebdb-defunct)
(t nil))))
(if face
- (propertize value 'face face))
- value))
+ (propertize value 'face face)
+ value)))
(cl-defmethod ebdb-fmt-field ((fmt ebdb-formatter-ebdb)
(field ebdb-field-role)
@@ -489,8 +489,8 @@ property is the field instance itself."
(ebdb-fmt-field fmt mail 'oneline record))
(ebdb-string person))))
(if (slot-value field 'defunct)
- (propertize value 'face 'ebdb-defunct))
- value))
+ (propertize value 'face 'ebdb-defunct)
+ value)))
(cl-defmethod ebdb-fmt-field ((fmt ebdb-formatter-ebdb)
(field ebdb-field-role)
@@ -504,8 +504,8 @@ property is the field instance itself."
(ebdb-fmt-field fmt mail 'oneline record))
(ebdb-string org))))
(if (slot-value field 'defunct)
- (propertize value 'face 'ebdb-defunct))
- value))
+ (propertize value 'face 'ebdb-defunct)
+ value)))
(defsubst ebdb-indent-string (string column)
"Indent nonempty lines in STRING to COLUMN (except first line).
