From: yamaoka <yamaoka>
Date: Mon, 6 Jun 2005 07:34:40 +0000 (+0000)
Subject: Fix previous commit.
X-Git-Tag: apel-10_7~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e034d6e73a34516c7b380e256cb3292637d543d;p=elisp%2Fapel.git

Fix previous commit.
---

diff --git a/filename.el b/filename.el
index 98b8786..7b3fa0f 100644
--- a/filename.el
+++ b/filename.el
@@ -102,12 +102,11 @@ Moreover, if you want to convert Japanese filename to roman string by kakasi,
 		inc-i '(1+ i))
 	(setq sref 'aref
 	      inc-i '(+ i (char-length chr))))
-      (` (let* ((string (, string))
-		(len (length string))
-		(b 0)(i 0)
-		(dest ""))
+      (` (let ((len (length (, string)))
+	       (b 0)(i 0)
+	       (dest ""))
 	   (while (< i len)
-	     (let ((chr ((, sref) string i))
+	     (let ((chr ((, sref) (, string) i))
 		   (lst filename-replacement-alist)
 		   ret)
 	       (while (and lst (not ret))
@@ -117,12 +116,12 @@ Moreover, if you want to convert Japanese filename to roman string by kakasi,
 		     t			; quit this loop.
 		   (setq lst (cdr lst))))
 	       (if ret
-		   (setq dest (concat dest (substring string b i)
+		   (setq dest (concat dest (substring (, string) b i)
 				      (cdr (car lst)))
 			 i (, inc-i)
 			 b i)
 		 (setq i (, inc-i)))))
-	   (concat dest (substring string b)))))))
+	   (concat dest (substring (, string) b)))))))
 
 (defun filename-special-filter (string)
   (filename-special-filter-1 string))