From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 May 2006 00:57:27 +0000 (+0000)
Subject: (Ffind_operation_coding_system): Call a function by
X-Git-Tag: emacs-pretest-22.0.90~2225
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7311509ee6842235502d446a4aaf16d3f0a6e068;p=emacs.git

(Ffind_operation_coding_system): Call a function by
safe_call1 instead of call1.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index fecf2dd636e..f210ed382a6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-29  Kenichi Handa  <handa@m17n.org>
+
+	* coding.c (Ffind_operation_coding_system): Call a function by
+	safe_call1 instead of call1.
+
 2006-05-28  Kim F. Storm  <storm@cua.dk>
 
 	* xdisp.c (set_cursor_from_row): If cursor cannot be set in row,
diff --git a/src/coding.c b/src/coding.c
index 5ef412a3619..03c07c3ba68 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -7539,7 +7539,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...)  */)
 	    return Fcons (val, val);
 	  if (! NILP (Ffboundp (val)))
 	    {
-	      val = call1 (val, Flist (nargs, args));
+	      val = safe_call1 (val, Flist (nargs, args));
 	      if (CONSP (val))
 		return val;
 	      if (SYMBOLP (val) && ! NILP (Fcoding_system_p (val)))