(gmm-write-region): Fix variable name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80b6f4a..18a015a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-11  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gmm-utils.el (gmm-write-region): Fix variable name.
+
 2006-10-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gmm-utils.el (gmm-write-region): New function based on compatibility

diff --git a/lisp/gmm-utils.el b/lisp/gmm-utils.el
index 7d54a8a..59d0292 100644 (file)
--- a/lisp/gmm-utils.el
+++ b/lisp/gmm-utils.el
@@ -410,11 +410,11 @@ coding-system."
   (if (and mustbenew
           (or (featurep 'xemacs)
               (= emacs-major-version 20)))
-      (if (file-exists-p file)
+      (if (file-exists-p filename)
          (signal 'file-already-exists
-                 (list "File exists" file))
-       (write-region start end file append visit lockname))
-    (write-region start end file append visit lockname mustbenew)))
+                 (list "File exists" filename))
+       (write-region start end filename append visit lockname))
+    (write-region start end filename append visit lockname mustbenew)))
 
 (provide 'gmm-utils)