Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 5572:c17a46ac63af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include many more files in binary-file-regexps, files.el. lisp/ChangeLog addition: 2011-09-21 Aidan Kehoe <kehoea@parhasard.net> * files.el (binary-file-regexps): Update this, adding everything that maps to no-conversion or no-conversion-multibyte in GNU's auto-mode-alist. In particular, add PDFs, important given gnus' problem with them of http://mid.gmane.org/m3r637lpm5.fsf@mikesoffice.com and the associated thread, and Uwe's recent re-reporting of the same problem.
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 21 Sep 2011 20:07:09 +0100
parents 4dee0387b9de
children f0f1fd0d8486
comparison
equal deleted inserted replaced
5571:5273dd66a1ba 5572:c17a46ac63af
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 '("\\.\\(?:bz2\\|elc\\|g\\(if\\|z\\)\\|jp\\(eg\\|g\\)\\|png\\|t\\(ar\\|gz\\|iff\\)\\|[Zo]\\)\\'") 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]\\)\\'")
1676 "List of regexps of filenames containing binary (non-text) data.") 1676 "List of regexps of filenames containing binary (non-text) data.")
1677
1678 ; (eval-when-compile 1677 ; (eval-when-compile
1679 ; (require 'regexp-opt) 1678 ; (require 'regexp-opt)
1680 ; (list 1679 ; (list
1681 ; (format "\\.\\(?:%s\\)\\'" 1680 ; (format "\\.\\(?:%s\\)\\'"
1682 ; (regexp-opt 1681 ; (regexp-opt
1683 ; '("tar" 1682 ; '("7Z" "7z" "ARC" "EAR" "EXE" "JAR" "LZH" "RAR" "WAR" "XPI" "Z"
1684 ; "tgz" 1683 ; "ZIP" "ZOO" "arc" "bz2" "ear" "elc" "exe" "gif" "gz" "jar"
1685 ; "gz" 1684 ; "jpeg" "jpg" "lha" "lzh" "o" "odt" "pbm" "pdf" "pgm" "png"
1686 ; "bz2" 1685 ; "pnm" "ppm" "sxc" "sxd" "sxi" "sxm" "sxw" "tar" "tgz"
1687 ; "Z" 1686 ; "tiff" "war" "xpi" "zip" "zoo")))))
1688 ; "o"
1689 ; "elc"
1690 ; "png"
1691 ; "gif"
1692 ; "tiff"
1693 ; "jpg"
1694 ; "jpeg"))))))
1695 1687
1696 (defvar inhibit-first-line-modes-regexps 1688 (defvar inhibit-first-line-modes-regexps
1697 binary-file-regexps 1689 binary-file-regexps
1698 "List of regexps; if one matches a file name, don't look for `-*-'.") 1690 "List of regexps; if one matches a file name, don't look for `-*-'.")
1699 1691