From: minakaji <minakaji>
Date: Fri, 20 Jul 2001 08:53:33 +0000 (+0000)
Subject: * install.el (install-file, install-elisp-module): Set file modes
X-Git-Tag: apel-10_3-1~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ebf5fdb7389e5e13d0923cfcd5065df1ac35b90d;p=elisp%2Fapel.git

* 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'.
---

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."