From: morioka <morioka>
Date: Tue, 10 Mar 1998 06:32:12 +0000 (+0000)
Subject: tm 7.95.
X-Git-Tag: tm-7_95~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a95cbe92fd9a6b0796f58405c286d48c52a32ac0;p=elisp%2Fapel.git

tm 7.95.
---

diff --git a/ChangeLog b/ChangeLog
index cb674ba..ba979ad 100644
--- 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/.
+
+
 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
--- 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)