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

diff --git a/ChangeLog b/ChangeLog
index 397da14..27f24fc 100644 (file)
--- 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 (file)
--- 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
 ;;;