tm 7.98.

diff --git a/ChangeLog b/ChangeLog
index 5f60932..2bd2532 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+Mon Dec 23 14:57:21 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl: Version 7.61.16 was released.
+
+Thu Dec 19 10:06:42 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * filename.el (replace-as-filename): Check nil.
+
+\f
 Mon Dec 16 13:42:44 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.61.15 was released.

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