From: Kenichi Handa <handa@m17n.org>
Date: Mon, 10 Mar 2008 12:18:02 +0000 (+0000)
Subject: (ccl_driver): If ccl->quit_silently is nonzero, don't
X-Git-Tag: emacs-22.2~55
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74215b552126a43e4331a7a9c78497ac0ffe2257;p=emacs.git

(ccl_driver): If ccl->quit_silently is nonzero, don't
append "CCL: Quitted" when the CCL program is quitted.
(setup_ccl_program): Initialize ccl->quit_silently to zero.
---

diff --git a/src/ccl.c b/src/ccl.c
index f0c078228df..19637e01fca 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1909,7 +1909,8 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed)
 	  break;
 
 	case CCL_STAT_QUIT:
-	  sprintf(msg, "\nCCL: Quited.");
+	  if (! ccl->quit_silently)
+	    sprintf(msg, "\nCCL: Quited.");
 	  break;
 
 	default:
@@ -2112,6 +2113,7 @@ setup_ccl_program (ccl, ccl_prog)
   ccl->eol_type = CODING_EOL_LF;
   ccl->suppress_error = 0;
   ccl->eight_bit_control = 0;
+  ccl->quit_silently = 0;
   return 0;
 }