Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!BU-IT.BU.EDU!jbw%bucsf.BU.EDU
From: jbw%bucsf.BU.EDU@BU-IT.BU.EDU (Joe Wells)
Newsgroups: gnu.emacs.bug
Subject: byte-compile-file doesn't preserve permissions
Message-ID: <8911122332.AA10579@banana6000.bu.edu>
Date: 12 Nov 89 23:32:42 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 37

The function byte-compile-file should copy the permissions of the ".el" file
onto the permissions of the ".elc" file.  This is especially helpful when
more than one person maintains an Emacs lisp file.

I am including a fix for this behavior.

-- 
Joe Wells <jbw@bucsf.bu.edu>
jbw%bucsf.bu.edu@bu-it.bu.edu
...!harvard!bu-cs!bucsf!jbw
----------------------------------------------------------------------
*** /usr14/gnu/dist-18.55/lisp/bytecomp.el	Sat Mar 19 20:29:42 1988
--- bytecomp.el	Sun Nov 12 18:31:09 1989
***************
*** 259,267 ****
  			 (looking-at "\"")
  			 (progn (forward-char 1)
  				(insert "\\\n"))))))))
!       (let ((vms-stmlf-recfm t))
! 	(write-region 1 (point-max)
! 		      (concat (file-name-sans-versions filename) "c")))
        (kill-buffer (current-buffer))
        (kill-buffer inbuffer)))
    t)
--- 259,270 ----
  			 (looking-at "\"")
  			 (progn (forward-char 1)
  				(insert "\\\n"))))))))
!       (let ((vms-stmlf-recfm t)
!             (target-file (concat (file-name-sans-versions filename) "c")))
!         (write-region 1 (point-max) target-file)
!         (condition-case ()
!             (set-file-modes target-file (file-modes filename))
!           (error nil)))
        (kill-buffer (current-buffer))
        (kill-buffer inbuffer)))
    t)