X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=TM-MK;h=c82b422043ad2bb2aa963669d12bf3c3253337b2;hb=a7110eca79a127b0b627934466375dbf9d49d9a0;hp=12df33872ecc427c08f0947c4a45b148678386c3;hpb=0fdc0d836a0607cd574602d1da1abf11da3d917b;p=elisp%2Ftm.git

diff --git a/TM-MK b/TM-MK
index 12df338..c82b422 100644
--- a/TM-MK
+++ b/TM-MK
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-MK,v 7.48 1997/02/06 18:30:30 morioka Exp $
+;;; $Id: TM-MK,v 7.49 1997/02/11 11:31:05 morioka Exp $
 ;;;
 
 (defun config-tm ()
@@ -36,10 +36,12 @@
 
 (defun make-mime-setup (lisp-dir
 			tl-path bitmap-path mu-path mel-path tm-path)
-  (let ((buf
-	 (let (vc-follow-symlinks)
-	   (find-file "mime-setup.el.in")
-	   )))
+  (if (file-exists-p "mime-setup.el")
+      (delete-file  "mime-setup.el")
+    )
+  (let ((buf (let (vc-follow-symlinks)
+	       (find-file "mime-setup.el.in")
+	       )))
     (goto-char (point-min))
     (re-search-forward "^;;; Code:\n" nil t)
     (setq buffer-read-only nil)