Mercurial > hg > xemacs-beta

comparison lisp/tl/filename.el @ 76:c0c698873ce1 r20-0b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b33
author cvs
date Mon, 13 Aug 2007 09:05:10 +0200
parents 54cc21c15cbb
children fe104dbd9147
comparison
equal deleted inserted replaced
75:a4e0195b387b 76:c0c698873ce1
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.1.1.1 1996/12/21 20:50:51 steve Exp $ 6 ;; Version: $Id: filename.el,v 1.2 1996/12/28 21:03:09 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
128 ;;; @ interface 128 ;;; @ interface
129 ;;; 129 ;;;
130 130
131 (defun replace-as-filename (string) 131 (defun replace-as-filename (string)
132 "Return safety filename from STRING. [filename.el]" 132 "Return safety filename from STRING. [filename.el]"
133 (poly-funcall filename-filters string) 133 (and string
134 ) 134 (poly-funcall filename-filters string)
135 ))
135 136
136 137
137 ;;; @ end 138 ;;; @ end
138 ;;; 139 ;;;
139 140