From ebf5fdb7389e5e13d0923cfcd5065df1ac35b90d Mon Sep 17 00:00:00 2001
From: minakaji <minakaji>
Date: Fri, 20 Jul 2001 08:53:33 +0000
Subject: [PATCH] * install.el (install-file, install-elisp-module): Set file
 modes according to `install-overwritten-file-modes'.

* poe-18.el (defalias): Remove alias to fset and define it by
using `defun'.
---
 ChangeLog  |    8 ++++++++
 install.el |    3 +++
 poe-18.el  |    4 +++-
 3 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 320f46e..75ab889 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2001-07-20  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
+
+	* install.el (install-file, install-elisp-module): Set file modes
+	according to `install-overwritten-file-modes'.
+
+	* poe-18.el (defalias): Remove alias to fset and define it by
+	using `defun'.
+
 2001-06-23  NAKAJIMA Mikio  <minakaji@osaka.email.ne.jp>
 
 	* install.el (install-files): Do not make DEST directory when
diff --git a/install.el b/install.el
index a399d7d..2da8a78 100644
--- a/install.el
+++ b/install.el
@@ -62,6 +62,7 @@
 	    (if (and (file-exists-p full-path) overwrite)
 		(delete-file full-path))
 	    (copy-file src-file full-path t t)
+	    (set-file-modes full-path install-overwritten-file-modes)
 	    (if move
 		(catch 'tag
 		  (while (and (file-exists-p src-file)
@@ -101,6 +102,7 @@
 	    (if (file-exists-p full-path)
 		(delete-file full-path))
 	    (copy-file src-file full-path t t)
+	    (set-file-modes full-path install-overwritten-file-modes)
 	    (princ (format "%s -> %s\n" el-file dest)))))
       (setq src-file (expand-file-name elc-file src))
       (if (not (file-exists-p src-file))
@@ -111,6 +113,7 @@
             (if (file-exists-p full-path)
                 (delete-file full-path))
 	    (copy-file src-file full-path t t)
+	    (set-file-modes full-path install-overwritten-file-modes)
 	    (catch 'tag
 	      (while (file-exists-p src-file)
 		(condition-case err
diff --git a/poe-18.el b/poe-18.el
index 02dd5ef..1db66fe 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -50,7 +50,9 @@
 
 ;;; @ Compilation.
 ;;;
-(fset 'defalias 'fset)
+(defun defalias (sym newdef)
+  "Set SYMBOL's function definition to NEWVAL, and return NEWVAL."
+  (fset sym newdef))
 
 (defun byte-code-function-p (object)
   "Return t if OBJECT is a byte-compiled function object."
-- 
1.7.10.4