From: Kenichi Handa <handa@m17n.org>
Date: Thu, 8 Jun 2006 06:48:34 +0000 (+0000)
Subject: (Ffind_operation_coding_system): Sync with HEAD.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~918
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=091a0ff08823041bd0f53be1c6124ad108fab9cb;p=emacs.git

(Ffind_operation_coding_system): Sync with HEAD.
---

diff --git a/src/coding.c b/src/coding.c
index 9f95c2c6777..023dc95c35e 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -8353,8 +8353,12 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...)  */)
 	   SDATA (SYMBOL_NAME (operation)));
   target = args[XINT (target_idx) + 1];
   if (!(STRINGP (target)
+	|| (EQ (operation, Qinsert_file_contents) && CONSP (target)
+	    && STRINGP (XCAR (target)) && BUFFERP (XCDR (target)))
 	|| (EQ (operation, Qopen_network_stream) && INTEGERP (target))))
     error ("Invalid %dth argument", XINT (target_idx) + 1);
+  if (CONSP (target))
+    target = XCAR (target);
 
   chain = ((EQ (operation, Qinsert_file_contents)
 	    || EQ (operation, Qwrite_region))