[elpa] externals/ebdb 15fdedb 3/3: Make sure string search criteria are trimmed of whitespace

[Eric Abrahamsen]

branch: externals/ebdb
commit 15fdedb14666ac2b5013b0350a72eb0e08efe201
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Make sure string search criteria are trimmed of whitespace
    
    * ebdb.el (ebdb-search-read): Trim in an :around method.
---
 ebdb.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ebdb.el b/ebdb.el
index e4e4371..ce32b83 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -5679,5 +5679,12 @@ prompt users for more complex search criteria, if 
necessary.")
   (read-string (format "Search records %smatching regexp: "
                        (if ebdb-search-invert "not " ""))))
 
+(cl-defmethod ebdb-search-read :around (_source)
+  "Trim string search criteria."
+  (let ((criterion (cl-call-next-method)))
+    (if (stringp criterion)
+       (string-trim criterion)
+      criterion)))
+
 (provide 'ebdb)
 ;;; ebdb.el ends here