projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(LEADING_BYTE_GT): New macro.
[chise/xemacs-chise.git]
/
lisp
/
files.el
diff --git
a/lisp/files.el
b/lisp/files.el
index
05d60f6
..
2b713c8
100644
(file)
--- a/
lisp/files.el
+++ b/
lisp/files.el
@@
-887,6
+887,7
@@
conversion, find-file-hooks, automatic uncompression, etc.
(after-insert-file-functions nil)
(coding-system-for-read 'binary)
(coding-system-for-write 'binary)
(after-insert-file-functions nil)
(coding-system-for-read 'binary)
(coding-system-for-write 'binary)
+ (jka-compr-compression-info-list nil)
(find-buffer-file-type-function
(if (fboundp 'find-buffer-file-type)
(symbol-function 'find-buffer-file-type)
(find-buffer-file-type-function
(if (fboundp 'find-buffer-file-type)
(symbol-function 'find-buffer-file-type)
@@
-1259,7
+1260,8
@@
with the name of the interpreter specified in the first line.
If it matches, mode MODE is selected.")
(defvar binary-file-regexps
If it matches, mode MODE is selected.")
(defvar binary-file-regexps
- '("\\.\\(?:bz2\\|elc\\|g\\(if\\|z\\)\\|jp\\(eg\\|g\\)\\|png\\|t\\(ar\\|gz\\|iff\\)\\|[Zo]\\)\\'")
+ (purecopy
+ '("\\.\\(?:bz2\\|elc\\|g\\(if\\|z\\)\\|jp\\(eg\\|g\\)\\|png\\|PNG\\|t\\(ar\\|gz\\|iff\\)\\|[Zo]\\)\\'"))
"List of regexps of filenames containing binary (non-text) data.")
; (eval-when-compile
"List of regexps of filenames containing binary (non-text) data.")
; (eval-when-compile