From: morioka <morioka>
Date: Wed, 17 Jun 1998 21:33:06 +0000 (+0000)
Subject: Move `call-after-loaded' to semi-setup.el.
X-Git-Tag: remi-199811302358~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9ed90866c778c7665882ca88678a5b1a48c016e2;p=elisp%2Fsemi.git

Move `call-after-loaded' to semi-setup.el.
---

diff --git a/semi-def.el b/semi-def.el
index 74dd719..e82d36e 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -248,20 +248,6 @@ FUNCTION.")
 ;;; @ Other 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)
-    ))
-
-
 (defvar mime-condition-type-alist
   '((preview . mime-preview-condition)
     (action . mime-acting-condition)))