From d8c4ad3f0350b84102825dbd63cb800edd627a25 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 21 Apr 1998 17:35:44 +0000 Subject: [PATCH] Don't require 'atype; abolish function 'field-unifier-for-mode. --- semi-def.el | 18 ------------------ 1 file changed, 18 deletions(-) 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 ;;; -- 1.7.10.4