tm 7.98.

[elisp/apel.git] / filename.el

diff --git a/filename.el b/filename.el
index 34853fb..7de7295 100644 (file)
--- a/filename.el
+++ b/filename.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1996 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: filename.el,v 1.1 1996/12/16 13:42:14 morioka Exp $
+;; Version: $Id: filename.el,v 1.2 1996/12/19 10:06:42 morioka Exp $
 ;; Keywords: string, file name
 
 ;; This file is part of tl (Tiny Library).
@@ -130,8 +130,9 @@
 
 (defun replace-as-filename (string)
   "Return safety filename from STRING. [filename.el]"
-  (poly-funcall filename-filters string)
-  )
+  (and string
+       (poly-funcall filename-filters string)
+       ))
 
 
 ;;; @ end