From: tmorioka <tmorioka>
Date: Fri, 28 Feb 1997 04:49:40 +0000 (+0000)
Subject: Function `call-after-loaded' was moved to mime-def.el; require
X-Git-Tag: Hokutetsu-Ishikawa-new~227
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=efdcdd4b8d77037ac56809e91dae301b835c62ea;p=elisp%2Fsemi.git

Function `call-after-loaded' was moved to mime-def.el; require
mime-def.
---

diff --git a/semi-setup.el b/semi-setup.el
index b69e69b..8c8ab9b 100644
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: semi-setup.el,v 0.6 1997-02-28 04:44:27 tmorioka Exp $
+;; Version: $Id: semi-setup.el,v 0.7 1997-02-28 04:49:40 tmorioka Exp $
 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -25,28 +25,13 @@
 
 ;;; Code:
 
+(require 'mime-def)
+
 (eval-when-compile
   (require 'mime-play)
   )
 
 
-;;; @ Utility
-;;;
-
-(defun call-after-loaded (module func &optional hook-name)
-  "If MODULE is provided, then FUNC is called.
-Otherwise func is set to MODULE-load-hook.
-If optional argument HOOK-NAME is specified,
-it is used as hook to set."
-  (if (featurep module)
-      (funcall func)
-    (or hook-name
-	(setq hook-name (intern (concat (symbol-name module) "-load-hook")))
-	)
-    (add-hook hook-name func)
-    ))
-
-
 ;;; @ for mime-view
 ;;;