projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update.
[chise/xemacs-chise.git]
/
lisp
/
code-files.el
diff --git
a/lisp/code-files.el
b/lisp/code-files.el
index
d74a11c
..
c07749a
100644
(file)
--- a/
lisp/code-files.el
+++ b/
lisp/code-files.el
@@
-6,8
+6,6
@@
;; This file is part of XEmacs.
;; This file is part of XEmacs.
-;; This file is very similar to mule-files.el
-
;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; XEmacs is free software; you can redistribute it and/or modify it
;; under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
@@
-23,16
+21,21
@@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Synched up with: Not synched.
+
;;; Commentary:
;;; Commentary:
-;;; Derived from mule.el in the original Mule but heavily modified
-;;; by Ben Wing.
+;; Derived from mule.el in the original Mule but heavily modified
+;; by Ben Wing.
;; 1997/3/11 modified by MORIOKA Tomohiko to sync with Emacs 20 API.
;; 1997/3/11 modified by MORIOKA Tomohiko to sync with Emacs 20 API.
+;; This file was derived from the former mule-files.el which has been removed
+;; as of XEmacs 21.2.15.
+
;;; Code:
;;; Code:
-(setq-default buffer-file-coding-system 'no-conversion)
+(setq-default buffer-file-coding-system 'raw-text)
(put 'buffer-file-coding-system 'permanent-local t)
(define-obsolete-variable-alias
(put 'buffer-file-coding-system 'permanent-local t)
(define-obsolete-variable-alias
@@
-284,7
+287,7
@@
Return t if file exists."
(save-excursion
(set-buffer (get-buffer-create " *load*"))
(erase-buffer)
(save-excursion
(set-buffer (get-buffer-create " *load*"))
(erase-buffer)
- (let ((coding-system-for-read 'no-conversion))
+ (let ((coding-system-for-read 'raw-text))
(insert-file-contents path nil 1 3001))
(find-coding-system-magic-cookie))
(if elc
(insert-file-contents path nil 1 3001))
(find-coding-system-magic-cookie))
(if elc
@@
-381,7
+384,7
@@
The coding system used for decoding the file is determined as follows:
3. The matching value for this filename from
`file-coding-system-alist', if any.
4. `buffer-file-coding-system-for-read', if non-nil.
3. The matching value for this filename from
`file-coding-system-alist', if any.
4. `buffer-file-coding-system-for-read', if non-nil.
-5. The coding system 'no-conversion.
+5. The coding system 'raw-text.
If a local value for `buffer-file-coding-system' in the current buffer
does not exist, it is set to the coding system which was actually used
If a local value for `buffer-file-coding-system' in the current buffer
does not exist, it is set to the coding system which was actually used
@@
-410,7
+413,7
@@
and `insert-file-contents-post-hook'."
;; #4.
buffer-file-coding-system-for-read
;; #5.
;; #4.
buffer-file-coding-system-for-read
;; #5.
- 'no-conversion))
+ 'raw-text))
(if (consp coding-system)
(setq return-val coding-system)
(if (null (find-coding-system coding-system))
(if (consp coding-system)
(setq return-val coding-system)
(if (null (find-coding-system coding-system))
@@
-555,4
+558,9
@@
See also `write-region-pre-hook' and `write-region-post-hook'."
start end filename append visit lockname
coding-system)))
start end filename append visit lockname
coding-system)))
-;;; mule-files.el ends here
+;;; The following was all that remained in mule-files.el, so I moved it
+;;; here for neatness. -sb
+(when (featurep 'mule)
+ (setq-default buffer-file-coding-system 'iso-2022-8))
+
+;;; code-files.el ends here