tm 7.95.

diff --git a/ChangeLog b/ChangeLog
index cb674ba..ba979ad 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,22 @@
+Wed Dec  4 04:56:28 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl: Version 7.61.14 was released.
+
+Tue Nov 26 19:55:55 1996  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
+
+       * install.el (install-file): Delete old file instead of chmod.
+       (install-elisp-module): Ditto.
+
+Tue Nov 26 12:02:00 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * TL-ELS (tl-modules): bitmap.el, x-face-mule.el and
+       smiley-mule.el were moved to ../bitmap-mule/.
+
+Mon Nov 18 15:03:58 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * TL-ELS: sinfo.el was moved to ../sinfo/.
+
+\f
 Sat Nov 16 08:38:57 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.61.13 was released.

diff --git a/install.el b/install.el
index c59bc9a..b5db039 100644 (file)
--- a/install.el
+++ b/install.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1996/8/18
-;; Version: $Id: install.el,v 3.0 1996/11/15 11:58:36 morioka Exp $
+;; Version: $Id: install.el,v 3.1 1996/11/26 19:55:55 shuhei-k Exp $
 ;; Keywords: install
 
 ;; This file is part of tl (Tiny Library).
@@ -20,7 +20,7 @@
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
+;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
@@ -61,7 +61,7 @@
     (if (file-exists-p src-file)
        (let ((full-path (expand-file-name file dest)))
          (if (and (file-exists-p full-path) overwrite)
-             (set-file-modes full-path install-overwritten-file-modes)
+              (delete-file full-path)
            )
          (copy-file src-file full-path t t)
          (if move
@@ -102,7 +102,7 @@
       (if (file-exists-p src-file)
          (let ((full-path (expand-file-name el-file dest)))
            (if (file-exists-p full-path)
-               (set-file-modes full-path install-overwritten-file-modes)
+                (delete-file full-path)
              )
            (copy-file src-file full-path t t)
            (princ (format "%s -> %s\n" el-file dest))
@@ -110,6 +110,9 @@
       (setq src-file (expand-file-name elc-file src))
       (if (file-exists-p src-file)
          (let ((full-path (expand-file-name elc-file dest)))
+            (if (file-exists-p full-path)
+                (delete-file full-path)
+              )
            (copy-file src-file full-path t t)
            (catch 'tag
              (while (file-exists-p src-file)