From 2d4ebd42d19069a635adfc70d494ee3f3e111d93 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 3 Nov 2002 08:06:50 +0000 Subject: [PATCH] * filename.el (filename-filters): Change default value to nil. --- ChangeLog | 4 ++++ filename.el | 25 ++++++++++++++----------- 2 files changed, 18 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 397da14..27f24fc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-11-03 Yoichi NAKAYAMA + + * filename.el (filename-filters): Change default value to nil. + 2002-10-04 Katsumi Yamaoka * 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 ;;; -- 1.7.10.4