From: morioka <morioka>
Date: Fri, 10 Apr 1998 00:39:00 +0000 (+0000)
Subject: Move 'regexp-or to mime-parse.el.
X-Git-Tag: semi-1_2_2~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=166194f2a8ab826e2eaf5d4fab286371c0038099;p=elisp%2Fsemi.git

Move 'regexp-or to mime-parse.el.
Move 'eliminate-top-spaces to mime-def.el.
---

diff --git a/semi-def.el b/semi-def.el
index 9054c31..2679a2b 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -182,9 +182,6 @@ FUNCTION.")
 ;;; @ field
 ;;;
 
-(defsubst regexp-or (&rest args)
-  (concat "\\(" (mapconcat (function identity) args "\\|") "\\)"))
-
 (defun tm:set-fields (sym field-list &optional regexp-sym)
   (or regexp-sym
       (setq regexp-sym
@@ -262,12 +259,6 @@ FUNCTION.")
 ;;; @ Other Utility
 ;;;
 
-(defsubst eliminate-top-spaces (string)
-  "Eliminate top sequence of space or tab in STRING."
-  (if (string-match "^[ \t]+" string)
-      (substring string (match-end 0))
-    string))
-
 (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.