From: tmorioka <tmorioka>
Date: Thu, 27 Feb 1997 08:18:16 +0000 (+0000)
Subject: (call-after-loaded): New function; imported from tl-misc.el; Don't
X-Git-Tag: Hokutetsu-Ishikawa-new~253
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=75534f83032853dfc2a23b2a1781f6223843f47a;p=elisp%2Fsemi.git

(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
--- 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