From: yoichi <yoichi>
Date: Sun, 3 Nov 2002 08:06:50 +0000 (+0000)
Subject: * filename.el (filename-filters): Change default value to nil.
X-Git-Tag: apel-10_5~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2d4ebd42d19069a635adfc70d494ee3f3e111d93;p=elisp%2Fapel.git

* filename.el (filename-filters): Change default value to nil.
---

diff --git a/ChangeLog b/ChangeLog
index 397da14..27f24fc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-11-03  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* filename.el (filename-filters): Change default value to nil.
+
 2002-10-04  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* APEL: Version 10.4 released.
diff --git a/filename.el b/filename.el
index bbe1f9a..30d238c 100644
--- a/filename.el
+++ b/filename.el
@@ -58,18 +58,21 @@ For example, (poly-funcall '(car number-to-string) '(100)) returns
   "Alist list of characters vs. string as replacement.
 List of characters represents characters not allowed as file-name.")
 
-(defvar filename-filters
-  (let ((filters '(filename-special-filter
-		   filename-eliminate-top-low-lines
-		   filename-canonicalize-low-lines
-		   filename-maybe-truncate-by-size
-		   filename-eliminate-bottom-low-lines
-		   )))
-    (if (exec-installed-p "kakasi")
-	(cons 'filename-japanese-to-roman-string filters)
-      filters))
-  "List of functions for file-name filter.")
+(defvar filename-filters nil
+  "List of functions for file-name filter.
 
+Example:
+\(setq filename-filters '\(filename-special-filter
+			 filename-eliminate-top-low-lines
+			 filename-canonicalize-low-lines
+			 filename-maybe-truncate-by-size
+			 filename-eliminate-bottom-low-lines\)\)
+
+Moreover, if you want to convert Japanese filename to roman string by kakasi,
+
+\(if \(exec-installed-p \"kakasi\"\)
+    \(setq file-name-filters
+	  \(append '\(filename-japanese-to-roman-string\) filename-filters\)\)\)")
 
 ;;; @ filters
 ;;;