tm 7.103.5.

[elisp/tm.git] / TM-MK

diff --git a/TM-MK b/TM-MK
index 955f56f..12df338 100644 (file)
--- a/TM-MK
+++ b/TM-MK
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-MK,v 7.47 1996/12/20 14:34:59 morioka Exp $
+;;; $Id: TM-MK,v 7.48 1997/02/06 18:30:30 morioka Exp $
 ;;;
 
 (defun config-tm ()
@@ -36,7 +36,10 @@
 
 (defun make-mime-setup (lisp-dir
                        tl-path bitmap-path mu-path mel-path tm-path)
-  (let ((buf (find-file "mime-setup.el.in")))
+  (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)