tm 7.66.2.

[elisp/tm.git] / inst-tm

diff --git a/inst-tm b/inst-tm
index 1f30392..d7e30da 100644 (file)
--- a/inst-tm
+++ b/inst-tm
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: inst-tm,v 7.3 1996/05/28 03:40:11 morioka Exp $
+;;; $Id: inst-tm,v 7.4 1996/06/07 14:14:53 morioka Exp $
 ;;;
 
 (load-file "TM-CFG")
@@ -129,7 +129,7 @@
        (let ((full-path (expand-file-name file dest)))
          (copy-file src-file full-path t t)
          (catch 'tag
-           (while t
+           (while (file-exists-p src-file)
              (condition-case err
                  (progn
                    (delete-file src-file)