Mercurial > emacs

diff src/ccl.c @ 93759:4e76a03232e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1107
author Miles Bader <miles@gnu.org>
date Sat, 05 Apr 2008 23:01:26 +0000
parents d1e53221c4aa 23dc6fc4bf91
children 8971ddf55736
line wrap: on
line diff
--- a/src/ccl.c	Sat Apr 05 21:40:16 2008 +0000
+++ b/src/ccl.c	Sat Apr 05 23:01:26 2008 +0000
@@ -1745,7 +1745,8 @@
 	  break;
 
 	case CCL_STAT_QUIT:
-	  sprintf(msg, "\nCCL: Quited.");
+	  if (! ccl->quit_silently)
+	    sprintf(msg, "\nCCL: Quited.");
 	  break;
 
 	default:
@@ -1948,6 +1949,7 @@
   ccl->stack_idx = 0;
   ccl->suppress_error = 0;
   ccl->eight_bit_control = 0;
+  ccl->quit_silently = 0;
   return 0;
 }