Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 5572:c17a46ac63af | 5573:f0f1fd0d8486 |
|---|---|
| 1932 ;; | 1932 ;; |
| 1933 (insert | 1933 (insert |
| 1934 ";ELC" | 1934 ";ELC" |
| 1935 20 | 1935 20 |
| 1936 "\000\000\000\n") | 1936 "\000\000\000\n") |
| 1937 (when (not (eq (find-coding-system 'raw-text-unix) | 1937 (insert (format ";;;###coding system: %s\n" |
| 1938 (find-coding-system buffer-file-coding-system))) | 1938 (coding-system-name buffer-file-coding-system))) |
| 1939 (insert (format ";;;###coding system: %s\n" | |
| 1940 (coding-system-name buffer-file-coding-system)))) | |
| 1941 (insert (format | 1939 (insert (format |
| 1942 "\n(or %s\n (error \"Loading this file requires %s\"))\n" | 1940 "\n(or %s\n (error \"Loading this file requires %s\"))\n" |
| 1943 (let ((print-readably t)) | 1941 (let ((print-readably t)) |
| 1944 (prin1-to-string (if (> (length | 1942 (prin1-to-string (if (> (length |
| 1945 byte-compile-checks-on-load) | 1943 byte-compile-checks-on-load) |