projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(=big5-cdp-var-001): New coded-charset for XEmacs CHISE.
[chise/xemacs-chise.git-]
/
lisp
/
files.el
diff --git
a/lisp/files.el
b/lisp/files.el
index
e1c32f6
..
18ce0ae
100644
(file)
--- a/
lisp/files.el
+++ b/
lisp/files.el
@@
-899,6
+899,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)
@@
-1202,7
+1203,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