From: morioka <morioka>
Date: Fri, 10 Apr 1998 00:37:11 +0000 (+0000)
Subject: (eliminate-top-spaces): Moved from semi-def.el.
X-Git-Tag: semi-1_2_2~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e4ed5326c78f44ae5685fe627e916dc0dc8ebfb9;p=elisp%2Fsemi.git

(eliminate-top-spaces): Moved from semi-def.el.
---

diff --git a/mime-def.el b/mime-def.el
index 3dc6d92..dfbeece 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -50,6 +50,12 @@
 	     x))))
   )
 
+(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))
+
 
 ;;; @ definitions about MIME
 ;;;