* 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 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,14 @@
 1998-12-14  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * 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   <yamaoka@jpl.org>
+
+       * 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)))
   ))