* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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."