Mercurial > hg > xemacs-beta
changeset 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 | c17a46ac63af |
| children | d4f334808463 |
| files | lisp/ChangeLog lisp/bytecomp.el lisp/files.el |
| diffstat | 3 files changed, 14 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 21 20:07:09 2011 +0100 +++ b/lisp/ChangeLog Sun Sep 25 16:12:07 2011 +0100 @@ -1,3 +1,13 @@ +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. + 2011-09-21 Aidan Kehoe <kehoea@parhasard.net> * files.el (binary-file-regexps):
--- 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))
--- a/lisp/files.el Wed Sep 21 20:07:09 2011 +0100 +++ b/lisp/files.el Sun Sep 25 16:12:07 2011 +0100 @@ -1672,7 +1672,7 @@ If it matches, mode MODE is selected.") (defvar binary-file-regexps - '("\\.\\(?:7[Zz]\\|ARC\\|E\\(?:AR\\|XE\\)\\|JAR\\|LZH\\|RAR\\|WAR\\|XPI\\|Z\\(?:IP\\|OO\\)\\|arc\\|bz2\\|e\\(?:ar\\|lc\\|xe\\)\\|g\\(?:if\\|z\\)\\|j\\(?:ar\\|p\\(?:e?g\\)\\)\\|l\\(?:ha\\|zh\\)\\|odt\\|p\\(?:bm\\|df\\|gm\\|n[gm]\\|pm\\)\\|sx[cdimw]\\|t\\(?:ar\\|gz\\|iff\\)\\|war\\|xpi\\|z\\(?:ip\\|oo\\)\\|[Zo]\\)\\'") + '("\\.\\(?:7[Zz]\\|ARC\\|E\\(?:AR\\|XE\\)\\|JAR\\|LZH\\|RAR\\|WAR\\|XPI\\|Z\\(?:IP\\|OO\\)\\|arc\\|bz2\\|e\\(?:ar\\|xe\\)\\|g\\(?:if\\|z\\)\\|j\\(?:ar\\|p\\(?:e?g\\)\\)\\|l\\(?:ha\\|zh\\)\\|odt\\|p\\(?:bm\\|df\\|gm\\|n[gm]\\|pm\\)\\|sx[cdimw]\\|t\\(?:ar\\|gz\\|iff\\)\\|war\\|xpi\\|z\\(?:ip\\|oo\\)\\|[Zo]\\)\\'") "List of regexps of filenames containing binary (non-text) data.") ; (eval-when-compile ; (require 'regexp-opt) @@ -1680,7 +1680,7 @@ ; (format "\\.\\(?:%s\\)\\'" ; (regexp-opt ; '("7Z" "7z" "ARC" "EAR" "EXE" "JAR" "LZH" "RAR" "WAR" "XPI" "Z" -; "ZIP" "ZOO" "arc" "bz2" "ear" "elc" "exe" "gif" "gz" "jar" +; "ZIP" "ZOO" "arc" "bz2" "ear" "exe" "gif" "gz" "jar" ; "jpeg" "jpg" "lha" "lzh" "o" "odt" "pbm" "pdf" "pgm" "png" ; "pnm" "ppm" "sxc" "sxd" "sxi" "sxm" "sxw" "tar" "tgz" ; "tiff" "war" "xpi" "zip" "zoo")))))