From: morioka <morioka>
Date: Tue, 10 Mar 1998 08:30:11 +0000 (+0000)
Subject: tm 7.98.
X-Git-Tag: tm-7_95~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e2ee22ca732c3d1a602a7bb8b97b8fedda879c85;p=elisp%2Fapel.git

tm 7.98.
---

diff --git a/ChangeLog b/ChangeLog
index 5f60932..2bd2532 100644
--- 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.
+
+
 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
--- 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