X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=install.el;h=2da8a785e1bfecf72e4cbc94647209c458420ad8;hb=6e972cf6c7ba473c4a83d9caaaa25e2aa31e9c7c;hp=a399d7dbd2fbbf980710580e45cc29642ab142f0;hpb=4ba37bbccb829d2a1c6e58a6955e81a7ee6bd725;p=elisp%2Fapel.git

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