From b9dddf6ff80a69b79fc4ac9869d6f599e4e8bb3b Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 22 Jun 1998 18:54:55 +0000 Subject: [PATCH] Abolish function `tm:set-fields', `tm:add-fields' and `tm:delete-fields'. --- semi-def.el | 67 ----------------------------------------------------------- 1 file changed, 67 deletions(-) diff --git a/semi-def.el b/semi-def.el index 98d0e86..c260a41 100644 --- a/semi-def.el +++ b/semi-def.el @@ -179,73 +179,6 @@ FUNCTION.") pgp-function-alist) -;;; @ field -;;; - -(defun tm:set-fields (sym field-list &optional regexp-sym) - (or regexp-sym - (setq regexp-sym - (let ((name (symbol-name sym))) - (intern - (concat (if (string-match "\\(.*\\)-list" name) - (substring name 0 (match-end 1)) - name) - "-regexp") - ))) - ) - (set sym field-list) - (set regexp-sym - (concat "^" (apply (function regexp-or) field-list) ":")) - ) - -(defun tm:add-fields (sym field-list &optional regexp-sym) - (or regexp-sym - (setq regexp-sym - (let ((name (symbol-name sym))) - (intern - (concat (if (string-match "\\(.*\\)-list" name) - (substring name 0 (match-end 1)) - name) - "-regexp") - ))) - ) - (let ((fields (eval sym))) - (mapcar (function - (lambda (field) - (or (member field fields) - (setq fields (cons field fields)) - ) - )) - (reverse field-list) - ) - (set regexp-sym - (concat "^" (apply (function regexp-or) fields) ":")) - (set sym fields) - )) - -(defun tm:delete-fields (sym field-list &optional regexp-sym) - (or regexp-sym - (setq regexp-sym - (let ((name (symbol-name sym))) - (intern - (concat (if (string-match "\\(.*\\)-list" name) - (substring name 0 (match-end 1)) - name) - "-regexp") - ))) - ) - (let ((fields (eval sym))) - (mapcar (function - (lambda (field) - (setq fields (delete field fields)) - )) - field-list) - (set regexp-sym - (concat "^" (apply (function regexp-or) fields) ":")) - (set sym fields) - )) - - ;;; @ Other Utility ;;; -- 1.7.10.4