From 8f8c09c61184327ba3666acfabb7025b2606746a Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 24 Aug 1999 07:40:59 +0000 Subject: [PATCH] Don't require cl. (make-mime-content-type): Don't use `list*'. --- mime-def.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/mime-def.el b/mime-def.el index 267810b..35bda0d 100644 --- a/mime-def.el +++ b/mime-def.el @@ -32,8 +32,6 @@ (require 'mcharset) (require 'alist) -(eval-when-compile (require 'cl)) ; list* - (eval-and-compile (defconst mime-library-product ["CLIME" (1 13 3) "平端"] "Product name, version number and code name of MIME-library package.") @@ -155,10 +153,9 @@ ;;; (defsubst make-mime-content-type (type subtype &optional parameters) - (list* (cons 'type type) - (cons 'subtype subtype) - (nreverse parameters)) - ) + (cons (cons 'type type) + (cons (cons 'subtype subtype) + (nreverse parameters)))) (defsubst mime-content-type-primary-type (content-type) "Return primary-type of CONTENT-TYPE." -- 1.7.10.4