Mercurial > hg > xemacs-beta

comparison lisp/tl/filename.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents c0c698873ce1
children
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
1 ;;; filename.el --- file name filter 1 ;;; filename.el --- file name filter
2 2
3 ;; Copyright (C) 1996 MORIOKA Tomohiko 3 ;; Copyright (C) 1996 MORIOKA Tomohiko
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: filename.el,v 1.2 1996/12/28 21:03:09 steve Exp $ 6 ;; Version: $Id: filename.el,v 1.3 1997/03/16 03:05:44 steve Exp $
7 ;; Keywords: string, file name 7 ;; Keywords: string, file name
8 8
9 ;; This file is part of tl (Tiny Library). 9 ;; This file is part of tl (Tiny Library).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
41 '(filename-control-p . "") 41 '(filename-control-p . "")
42 )) 42 ))
43 43
44 (defvar filename-filters 44 (defvar filename-filters
45 (nconc 45 (nconc
46 (and (file-installed-p "kakasi" exec-path) 46 (and (exec-installed-p "kakasi")
47 '(filename-japanese-to-roman-string) 47 '(filename-japanese-to-roman-string)
48 ) 48 )
49 '(filename-special-filter 49 '(filename-special-filter
50 filename-eliminate-top-low-lines 50 filename-eliminate-top-low-lines
51 filename-canonicalize-low-lines 51 filename-canonicalize-low-lines