From 9b2e5c951be47dddffd89a737f414104535a3b6b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 25 Feb 1999 07:50:27 +0000 Subject: [PATCH] * poem-20.el, poem-e20_2.el, poem-om.el (find-file-noselect-as-raw-text): Use `raw-text-dos' instead of `raw-text'. (insert-file-contents-as-raw-text): Likewise. --- ChangeLog | 7 +++++++ poem-20.el | 4 ++-- poem-e20_2.el | 4 ++-- poem-om.el | 4 ++-- 4 files changed, 13 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1add170..315f072 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +1999-02-25 Katsumi Yamaoka + + * poem-20.el, poem-e20_2.el, poem-om.el + (find-file-noselect-as-raw-text): Use `raw-text-dos' instead of + `raw-text'. + (insert-file-contents-as-raw-text): Likewise. + 1999-02-14 Katsumi Yamaoka * mcs-om.el (TopLevel): Don't refer to diff --git a/poem-20.el b/poem-20.el index e4e2786..b0b116b 100644 --- a/poem-20.el +++ b/poem-20.el @@ -65,7 +65,7 @@ Like `insert-file-contents-literary', but it allows find-file-hooks, automatic uncompression, etc. Like `insert-file-contents-as-binary', but it converts line-break code." - (let ((coding-system-for-read 'raw-text) + (let ((coding-system-for-read 'raw-text-dos) format-alist) ;; Returns list of absolute file name and length of data inserted. (insert-file-contents filename visit beg end replace))) @@ -85,7 +85,7 @@ code." (defun find-file-noselect-as-raw-text (filename &optional nowarn rawfile) "Like `find-file-noselect', q.v., but it does not code and format conversion except for line-break code." - (let ((coding-system-for-read 'raw-text) + (let ((coding-system-for-read 'raw-text-dos) format-alist) (find-file-noselect filename nowarn rawfile))) diff --git a/poem-e20_2.el b/poem-e20_2.el index c7d9687..9a675ee 100644 --- a/poem-e20_2.el +++ b/poem-e20_2.el @@ -112,7 +112,7 @@ automatic uncompression, etc. Like `insert-file-contents-as-binary', but it converts line-break code." (let ((flag enable-multibyte-characters) - (coding-system-for-read 'raw-text) + (coding-system-for-read 'raw-text-dos) format-alist) (prog1 ;; Returns list absolute file name and length of data inserted. @@ -134,7 +134,7 @@ code." "Like `find-file-noselect', q.v., but it does not code and format conversion except for line-break code." (let ((flag enable-multibyte-characters) - (coding-system-for-read 'raw-text) + (coding-system-for-read 'raw-text-dos) format-alist) (save-current-buffer (prog1 diff --git a/poem-om.el b/poem-om.el index 34751d3..f57447d 100644 --- a/poem-om.el +++ b/poem-om.el @@ -301,7 +301,7 @@ automatic uncompression, etc. Like `insert-file-contents-as-binary', but it converts line-break code." ;; Returns list absolute file name and length of data inserted. - (insert-file-contents-as-coding-system 'raw-text + (insert-file-contents-as-coding-system 'raw-text-dos filename visit beg end replace)) (defun write-region-as-binary (start end filename @@ -323,7 +323,7 @@ code." (defun find-file-noselect-as-raw-text (filename &optional nowarn rawfile) "Like `find-file-noselect', q.v., but it does not code and format conversion except for line-break code." - (find-file-noselect-as-coding-system 'raw-text filename nowarn rawfile)) + (find-file-noselect-as-coding-system 'raw-text-dos filename nowarn rawfile)) (defun save-buffer-as-binary (&optional args) "Like `save-buffer', q.v., but don't encode." -- 1.7.10.4