branch: externals/ebdb
commit 15fdedb14666ac2b5013b0350a72eb0e08efe201
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
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
