From: yamaoka Date: Mon, 14 Dec 1998 07:22:21 +0000 (+0000) Subject: * poem-20.el, poem-e20_2.el, poem-ltn1.el, poem-nemacs.el, poem-om.el X-Git-Tag: apel-199812141900~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2dd581858aa9b2b61fdb3fea0e89dcb20fc92772;p=elisp%2Fapel.git * poem-20.el, poem-e20_2.el, poem-ltn1.el, poem-nemacs.el, poem-om.el (find-file-noselect-as-coding-system): Be CODING-SYSTEM the 1st arg. (insert-file-contents-as-coding-system): Likewise. * poem-20.el, poem-ltn1.el, poem-nemacs.el, poem-om.el (write-region-as-coding-system): Likewise. --- diff --git a/ChangeLog b/ChangeLog index 9ce7e3e..9fa82e9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,14 @@ 1998-12-14 Katsumi Yamaoka * poem-20.el, poem-e20_2.el, poem-ltn1.el, poem-nemacs.el, poem-om.el + (find-file-noselect-as-coding-system): Be CODING-SYSTEM the 1st arg. + (insert-file-contents-as-coding-system): Likewise. + * poem-20.el, poem-ltn1.el, poem-nemacs.el, poem-om.el + (write-region-as-coding-system): Likewise. + +1998-12-14 Katsumi Yamaoka + + * poem-20.el, poem-e20_2.el, poem-ltn1.el, poem-nemacs.el, poem-om.el (find-file-noselect-as-coding-system): Renamed from `find-file-noselect-as-specified-coding-system'. diff --git a/poem-20.el b/poem-20.el index 5fc0a39..6a5f4f4 100644 --- a/poem-20.el +++ b/poem-20.el @@ -100,24 +100,24 @@ except for line-break code." ;;; (defun insert-file-contents-as-coding-system - (filename coding-system &optional visit beg end replace) - "Like `insert-file-contents', q.v., but CODING-SYSTEM the second arg will + (coding-system filename &optional visit beg end replace) + "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will be applied to `coding-system-for-read'." (let ((coding-system-for-read coding-system) format-alist) (insert-file-contents filename visit beg end replace))) -(defun write-region-as-coding-system (start end filename coding-system - &optional append visit lockname) - "Like `write-region', q.v., but CODING-SYSTEM the fourth arg will be +(defun write-region-as-coding-system + (coding-system start end filename &optional append visit lockname) + "Like `write-region', q.v., but CODING-SYSTEM the first arg will be applied to `coding-system-for-write'." (let ((coding-system-for-write coding-system) jka-compr-compression-info-list jam-zcat-filename-list) (write-region start end filename append visit lockname))) -(defun find-file-noselect-as-coding-system (filename coding-system - &optional nowarn rawfile) - "Like `find-file-noselect', q.v., but CODING-SYSTEM the second arg will +(defun find-file-noselect-as-coding-system + (coding-system filename &optional nowarn rawfile) + "Like `find-file-noselect', q.v., but CODING-SYSTEM the first arg will be applied to `coding-system-for-read'." (let ((coding-system-for-read coding-system) format-alist) diff --git a/poem-e20_2.el b/poem-e20_2.el index e4cf3b5..c7d9687 100644 --- a/poem-e20_2.el +++ b/poem-e20_2.el @@ -146,8 +146,8 @@ except for line-break code." ;;; (defun insert-file-contents-as-coding-system - (filename coding-system &optional visit beg end replace) - "Like `insert-file-contents', q.v., but CODING-SYSTEM the second arg will + (coding-system filename &optional visit beg end replace) + "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will be applied to `coding-system-for-read'." (let ((flag enable-multibyte-characters) (coding-system-for-read coding-system) @@ -156,9 +156,9 @@ be applied to `coding-system-for-read'." (insert-file-contents filename visit beg end replace) (set-buffer-multibyte flag)))) -(defun find-file-noselect-as-coding-system (filename coding-system - &optional nowarn rawfile) - "Like `find-file-noselect', q.v., but CODING-SYSTEM the second arg will +(defun find-file-noselect-as-coding-system + (coding-system filename &optional nowarn rawfile) + "Like `find-file-noselect', q.v., but CODING-SYSTEM the first arg will be applied to `coding-system-for-read'." (let ((flag enable-multibyte-characters) (coding-system-for-read coding-system) diff --git a/poem-ltn1.el b/poem-ltn1.el index aa0d3b8..f7e23c4 100644 --- a/poem-ltn1.el +++ b/poem-ltn1.el @@ -173,22 +173,21 @@ code conversion will not take place." ;;; (defun insert-file-contents-as-coding-system - (filename coding-system &optional visit beg end replace) - "Like `insert-file-contents', q.v., but CODING-SYSTEM the second arg will -be applied to `coding-system-for-read'." + (coding-system filename &optional visit beg end replace) + "Like `insert-file-contents', q.v., CODING-SYSTEM the first arg will be +ignored." (insert-file-contents filename visit beg end replace)) -(defun write-region-as-coding-system (start end filename coding-system - &optional append visit lockname) - "Like `write-region', q.v., but CODING-SYSTEM the fourth arg will be -applied to `coding-system-for-write'." +(defun write-region-as-coding-system + (coding-system start end filename &optional append visit lockname) + "Like `write-region', q.v., CODING-SYSTEM the first arg will be ignored." (let (jka-compr-compression-info-list jam-zcat-filename-list) (write-region start end filename append visit lockname))) -(defun find-file-noselect-as-coding-system (filename coding-system - &optional nowarn rawfile) - "Like `find-file-noselect', q.v., but CODING-SYSTEM the second arg will -be applied to `coding-system-for-read'." +(defun find-file-noselect-as-coding-system + (coding-system filename &optional nowarn rawfile) + "Like `find-file-noselect', q.v., CODING-SYSTEM the first arg will be +ignored." (find-file-noselect filename nowarn rawfile)) diff --git a/poem-nemacs.el b/poem-nemacs.el index 9c4c825..2741b9f 100644 --- a/poem-nemacs.el +++ b/poem-nemacs.el @@ -242,25 +242,25 @@ except for line-break code." ;;; (defun insert-file-contents-as-coding-system - (filename coding-system &optional visit beg end replace) - "Like `insert-file-contents', q.v., but CODING-SYSTEM the second arg will -be applied to `coding-system-for-read'." + (coding-system filename &optional visit beg end replace) + "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will +be applied to `kanji-fileio-code'." (let ((kanji-fileio-code coding-system) kanji-expected-code) (insert-file-contents filename visit))) -(defun write-region-as-coding-system (start end filename coding-system - &optional append visit lockname) - "Like `write-region', q.v., but CODING-SYSTEM the fourth arg will be -applied to `coding-system-for-write'." +(defun write-region-as-coding-system + (coding-system start end filename &optional append visit lockname) + "Like `write-region', q.v., but CODING-SYSTEM the first arg will be +applied to `kanji-fileio-code'." (let ((kanji-fileio-code coding-system) jka-compr-compression-info-list jam-zcat-filename-list) (write-region start end filename append visit))) -(defun find-file-noselect-as-coding-system (filename coding-system - &optional nowarn rawfile) - "Like `find-file-noselect', q.v., but CODING-SYSTEM the second arg will -be applied to `coding-system-for-read'." +(defun find-file-noselect-as-coding-system + (coding-system filename &optional nowarn rawfile) + "Like `find-file-noselect', q.v., but CODING-SYSTEM the first arg will +be applied to `kanji-fileio-code'." (let ((kanji-fileio-code coding-system) kanji-expected-code) (find-file-noselect filename nowarn))) diff --git a/poem-om.el b/poem-om.el index babc229..9875330 100644 --- a/poem-om.el +++ b/poem-om.el @@ -252,42 +252,44 @@ except for line-break code." ;;; (defun insert-file-contents-as-coding-system - (filename coding-system &optional visit beg end replace) - "Like `insert-file-contents', q.v., but CODING-SYSTEM the second arg will -be applied to `coding-system-for-read'." + (coding-system filename &optional visit beg end replace) + "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will +be applied to `file-coding-system-for-read'." (let ((file-coding-system-for-read coding-system)) (insert-file-contents filename visit beg end replace))) (cond (running-emacs-19_29-or-later ;; for MULE 2.3 based on Emacs 19.34. - (defun write-region-as-coding-system (start end filename coding-system - &optional append visit lockname) - "Like `write-region', q.v., but CODING-SYSTEM the fourth arg will be -applied to `coding-system-for-write'." - (let (jka-compr-compression-info-list jam-zcat-filename-list) - (write-region start end filename append visit lockname coding-system))) + (defun write-region-as-coding-system + (coding-system start end filename &optional append visit lockname) + "Like `write-region', q.v., but CODING-SYSTEM the first arg will be +applied to `file-coding-system'." + (let ((file-coding-system coding-system) + jka-compr-compression-info-list jam-zcat-filename-list) + (write-region start end filename append visit lockname))) (defun find-file-noselect-as-coding-system - (filename coding-system &optional nowarn rawfile) - "Like `find-file-noselect', q.v., but CODING-SYSTEM the second arg will -be applied to `coding-system-for-read'." + (coding-system filename &optional nowarn rawfile) + "Like `find-file-noselect', q.v., but CODING-SYSTEM the first arg will +be applied to `file-coding-system-for-read'." (let ((file-coding-system-for-read coding-system)) (find-file-noselect filename nowarn rawfile))) ) (t ;; for MULE 2.3 based on Emacs 19.28. - (defun write-region-as-coding-system (start end filename coding-system - &optional append visit lockname) - "Like `write-region', q.v., but CODING-SYSTEM the fourth arg will be -applied to `coding-system-for-write'." - (let (jka-compr-compression-info-list jam-zcat-filename-list) - (write-region start end filename append visit coding-system))) + (defun write-region-as-coding-system + (coding-system start end filename &optional append visit lockname) + "Like `write-region', q.v., but CODING-SYSTEM the first arg will be +applied to `file-coding-system'." + (let ((file-coding-system coding-system) + jka-compr-compression-info-list jam-zcat-filename-list) + (write-region start end filename append visit))) (defun find-file-noselect-as-coding-system - (filename coding-system &optional nowarn rawfile) - "Like `find-file-noselect', q.v., but CODING-SYSTEM the second arg will -be applied to `coding-system-for-read'." + (coding-system filename &optional nowarn rawfile) + "Like `find-file-noselect', q.v., but CODING-SYSTEM the first arg will +be applied to `file-coding-system-for-read'." (let ((file-coding-system-for-read coding-system)) (find-file-noselect filename nowarn))) ))