--- /TECH.mail/zic/tmp/dired/dired-6.0/gmhist-mh.el	Mon Sep 23 16:55:05 1991
+++ /TECH.mail/zic/Mule/new-lisp/gmhist-mh.el	Mon Mar 22 10:45:43 1993
@@ -149,8 +149,9 @@
 
 ;; Don't use &rest args, as the hook may want to take advantage of our
 ;; arglist.
-(defun gmhist-new-write-region (start end filename
-				      &optional append visit)
+(defun gmhist-new-write-region
+;  (start end filename	&optional append visit)	>>  Ishikawa,Ichiro 199303151
+  (start end filename	&optional append visit	coding-system)
   "Write current region into specified file.
 When called from a program, takes three arguments:
 START, END and FILENAME.  START and END are buffer positions.
@@ -166,7 +167,8 @@
 See variable `after-write-region-hook'."
   (interactive "r\nFWrite region to file: ")
   (prog1
-      (gmhist-old-write-region start end filename append visit)
+;      (gmhist-old-write-region start end filename append visit)    >> Ishikawa
+      (gmhist-old-write-region start end filename append visit coding-system)
     (condition-case err
 	;; basic-save-buffer would assume an error to mean
 	;; write-region failed
