From 95a8823ed90c40c00eacf44313664e50a82074a5 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 4 Jun 1999 02:22:18 +0000 Subject: [PATCH] (buffer-file-coding-system): Use `raw-text' as default value. (load): Use `raw-text' instead of `no-conversion'. (insert-file-contents): Likewise. --- lisp/code-files.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/code-files.el b/lisp/code-files.el index d74a11c..893908d 100644 --- a/lisp/code-files.el +++ b/lisp/code-files.el @@ -32,7 +32,7 @@ ;;; 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 @@ -284,7 +284,7 @@ Return t if file exists." (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 @@ -381,7 +381,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. -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 @@ -410,7 +410,7 @@ and `insert-file-contents-post-hook'." ;; #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)) -- 1.7.10.4