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 (file)
--- 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.