[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb cec8ddc 1/2: Add ebdb-parse method for ebdb-field-
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb cec8ddc 1/2: Add ebdb-parse method for ebdb-field-tags |
Date: |
Sat, 21 Nov 2020 21:52:52 -0500 (EST) |
branch: externals/ebdb
commit cec8ddc370fd2b9361b14f2b61756a793a4fbc74
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
Add ebdb-parse method for ebdb-field-tags
* ebdb.el (ebdb-parse): Was missing this.
---
ebdb.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/ebdb.el b/ebdb.el
index 74052eb..d1db4b8 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2620,6 +2620,16 @@ See `ebdb-url-valid-schemes' for a list of acceptable
schemes."
nil nil
(when obj (ebdb-string obj))))))))
+(cl-defmethod ebdb-parse ((field (subclass ebdb-field-tags))
+ str &optional slots)
+ (unless (plist-get slots :tags)
+ (setq slots (plist-put
+ slots :tags
+ (split-string
+ str
+ (nth 1 (assq 'ebdb-field-tags ebdb-separator-alist))))))
+ (cl-call-next-method field str slots))
+
(cl-defmethod ebdb-search-read ((_class (subclass ebdb-field-tags)))
(let ((search-string (ebdb-read-string
"Search for tags (eg +tag1-tag2|tag3): ")))