(calist-field-match-method): Fix problem when `field-type' is a

string.

diff --git a/calist.el b/calist.el
index 36fe8de..634ae97 100644 (file)
--- a/calist.el
+++ b/calist.el
@@ -85,8 +85,10 @@
 
 (defsubst calist-field-match-method (field-type)
   (symbol-function
-   (or (intern-soft
-       (symbol-name field-type) calist-field-match-method-obarray)
+   (or (intern-soft (if (symbolp field-type)
+                       (symbol-name field-type)
+                     field-type)
+                   calist-field-match-method-obarray)
        (intern-soft "t" calist-field-match-method-obarray))))
 
 (defsubst calist-field-match (calist field-type field-value)