From 70c96d459767d0adf7219bfcb364534c8821cdc0 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 31 May 1999 10:32:53 +0000
Subject: [PATCH] (calist-field-match-method): Fix problem when `field-type'
 is a string.

---
 calist.el |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/calist.el b/calist.el
index 36fe8de..634ae97 100644
--- 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)
-- 
1.7.10.4