This commit was generated by cvs2svn to compensate for changes in r530,

[elisp/tm.git] / TM-MK

diff --git a/TM-MK b/TM-MK
index 12df338..c82b422 100644 (file)
--- 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)