Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 5573:f0f1fd0d8486

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 cc6f0266bc36
comparison
equal deleted inserted replaced
5572:c17a46ac63af 5573:f0f1fd0d8486
1670 The car of each element is a regular expression which is compared 1670 The car of each element is a regular expression which is compared
1671 with the name of the interpreter specified in the first line. 1671 with the name of the interpreter specified in the first line.
1672 If it matches, mode MODE is selected.") 1672 If it matches, mode MODE is selected.")
1673 1673
1674 (defvar binary-file-regexps 1674 (defvar binary-file-regexps
1675 '("\\.\\(?: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]\\)\\'") 1675 '("\\.\\(?: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]\\)\\'")
1676 "List of regexps of filenames containing binary (non-text) data.") 1676 "List of regexps of filenames containing binary (non-text) data.")
1677 ; (eval-when-compile 1677 ; (eval-when-compile
1678 ; (require 'regexp-opt) 1678 ; (require 'regexp-opt)
1679 ; (list 1679 ; (list
1680 ; (format "\\.\\(?:%s\\)\\'" 1680 ; (format "\\.\\(?:%s\\)\\'"
1681 ; (regexp-opt 1681 ; (regexp-opt
1682 ; '("7Z" "7z" "ARC" "EAR" "EXE" "JAR" "LZH" "RAR" "WAR" "XPI" "Z" 1682 ; '("7Z" "7z" "ARC" "EAR" "EXE" "JAR" "LZH" "RAR" "WAR" "XPI" "Z"
1683 ; "ZIP" "ZOO" "arc" "bz2" "ear" "elc" "exe" "gif" "gz" "jar" 1683 ; "ZIP" "ZOO" "arc" "bz2" "ear" "exe" "gif" "gz" "jar"
1684 ; "jpeg" "jpg" "lha" "lzh" "o" "odt" "pbm" "pdf" "pgm" "png" 1684 ; "jpeg" "jpg" "lha" "lzh" "o" "odt" "pbm" "pdf" "pgm" "png"
1685 ; "pnm" "ppm" "sxc" "sxd" "sxi" "sxm" "sxw" "tar" "tgz" 1685 ; "pnm" "ppm" "sxc" "sxd" "sxi" "sxm" "sxw" "tar" "tgz"
1686 ; "tiff" "war" "xpi" "zip" "zoo"))))) 1686 ; "tiff" "war" "xpi" "zip" "zoo")))))
1687 1687
1688 (defvar inhibit-first-line-modes-regexps 1688 (defvar inhibit-first-line-modes-regexps