diff lisp/tl/tl-str.el @ 74:54cc21c15cbb r20-0b32

Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 6a378aca36af
line wrap: on
line diff
--- a/lisp/tl/tl-str.el	Mon Aug 13 09:03:47 2007 +0200
+++ b/lisp/tl/tl-str.el	Mon Aug 13 09:04:33 2007 +0200
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;	$Id: tl-str.el,v 1.1.1.1 1996/12/18 22:43:38 steve Exp $
+;;	$Id: tl-str.el,v 1.1.1.2 1996/12/21 20:50:49 steve Exp $
 ;; Keywords: string
 
 ;; This file is part of tl (Tiny Library).
@@ -206,40 +206,7 @@
       (substring filename 0 (match-beginning 0))
     filename))
 
-(defvar filename-special-char-range
-  (nconc '((0 . 31))
-	 (string-to-int-list "!\"$")
-	 (list (cons (char-int ?&) (char-int ?*)))
-	 (string-to-int-list "/;<>?")
-	 (list (cons (char-int ?\[) (char-int ?^)))
-	 (string-to-int-list "`")
-	 (list (cons (char-int ?{) (char-int ?})))
-	 '((127 . 159)))
-  "*Range of characters which is not available in file name. [tl-str.el]")
-
-(defvar filename-space-char-range '(9 32 160)
-  "*Range of characters which indicates space. These characters
-are replaced to `_' by function `replace-as-filename' [tl-str.el]")
-
-(defun replace-as-filename (str)
-  "Return safety filename from STR. [tl-str.el]"
-  (let (sf)
-    (mapconcat (function
-		(lambda (chr)
-		  (cond ((member-of-range chr filename-space-char-range)
-			 (if sf
-			     ""
-			   (setq sf t)
-			   "_"))
-			((member-of-range chr filename-special-char-range)
-			 "")
-			(t
-			 (setq sf nil)
-			 (char-to-string chr)
-			 ))
-		  ))
-	       (string-to-char-list str)
-	       "")))
+(autoload 'replace-as-filename "filename")
 
 
 ;;; @ symbol