From: morioka <morioka>
Date: Mon, 31 May 1999 10:32:53 +0000 (+0000)
Subject: (calist-field-match-method): Fix problem when `field-type' is a
X-Git-Tag: apel-9_20~55
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=70c96d459767d0adf7219bfcb364534c8821cdc0;p=elisp%2Fapel.git

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

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)