(call-after-loaded): New function; imported from tl-misc.el; Don't

require tl-misc.

diff --git a/semi-setup.el b/semi-setup.el
index 66309d3..30095d1 100644 (file)
--- a/semi-setup.el
+++ b/semi-setup.el
@@ -1,9 +1,9 @@
-;;; mime-setup.el --- setup file for MIME-View.
+;;; semi-setup.el --- setup file for MIME-View.
 
 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: semi-setup.el,v 0.2 1997-02-21 06:44:40 tmorioka Exp $
+;; Version: $Id: semi-setup.el,v 0.3 1997-02-27 08:18:16 tmorioka Exp $
 ;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -25,7 +25,21 @@
 
 ;;; Code:
 
-(require 'tl-misc)
+;;; @ 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