diff lisp/bytecomp.el @ 5573:f0f1fd0d8486

Remove ELC files from `binary-file-regexps', many of them are escape-quoted. lisp/ChangeLog addition: 2011-09-25 Aidan Kehoe <kehoea@parhasard.net> * files.el (binary-file-regexps): Remove ELC files from this, many of them are escape-quoted, and when opening them for viewing XEmacs should look at the coding cookie and respect that. * bytecomp.el (byte-compile-insert-header): Always insert a coding cookie, now ELC files are no longer in binary-file-regexps.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 25 Sep 2011 16:12:07 +0100
parents b039c0f018b8
children d4f334808463
line wrap: on
line diff
--- a/lisp/bytecomp.el	Wed Sep 21 20:07:09 2011 +0100
+++ b/lisp/bytecomp.el	Sun Sep 25 16:12:07 2011 +0100
@@ -1934,10 +1934,8 @@
      ";ELC"
      20
      "\000\000\000\n")
-    (when (not (eq (find-coding-system 'raw-text-unix)
-		   (find-coding-system buffer-file-coding-system)))
-      (insert (format ";;;###coding system: %s\n"
-		      (coding-system-name buffer-file-coding-system))))
+    (insert (format ";;;###coding system: %s\n"
+                    (coding-system-name buffer-file-coding-system)))
     (insert (format
 	     "\n(or %s\n    (error \"Loading this file requires %s\"))\n"
              (let ((print-readably t))