From: morioka <morioka>
Date: Tue, 21 Apr 1998 17:35:44 +0000 (+0000)
Subject: Don't require 'atype; abolish function 'field-unifier-for-mode.
X-Git-Tag: semi-1_3_0~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d8c4ad3f0350b84102825dbd63cb800edd627a25;p=elisp%2Fsemi.git

Don't require 'atype; abolish function 'field-unifier-for-mode.
---

diff --git a/semi-def.el b/semi-def.el
index 95bda34..1c0ee4e 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -161,24 +161,6 @@ FUNCTION.")
 	pgp-function-alist)
 
 
-;;; @ method selector kernel
-;;;
-
-(require 'atype)
-
-;;; @@ field unifier
-;;;
-
-(defun field-unifier-for-mode (a b)
-  (let ((va (cdr a)))
-    (if (if (consp va)
-	    (member (cdr b) va)
-	  (equal va (cdr b))
-	  )
-	(list nil b nil)
-      )))
-
-
 ;;; @ field
 ;;;