[gnu.emacs.bug] byte-compile-file doesn't preserve permissions

jbw%bucsf.BU.EDU@BU-IT.BU.EDU (Joe Wells) (11/13/89)

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)