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

diff --git a/semi-def.el b/semi-def.el
index 95bda34..1c0ee4e 100644 (file)
--- 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
 ;;;