# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1141385806 0
# Node ID 6f8745145ccc00d696e15aa1c6cb962a0f778b22
# Parent  c649841811e1f7e123be87bf73e0f7247dab1a8e
(ccl-dump-write-const-string): Fix previous
change.

diff -r c649841811e1 -r 6f8745145ccc lisp/international/ccl.el
--- a/lisp/international/ccl.el	Fri Mar 03 11:36:37 2006 +0000
+++ b/lisp/international/ccl.el	Fri Mar 03 11:36:46 2006 +0000
@@ -1140,7 +1140,7 @@
       (insert "write \"")
       (while (< i len)
 	(let ((code (ccl-get-next-code)))
-	  (if (logand code #x1000000)
+	  (if (/= (logand code #x1000000) 0)
 	      (progn
 		(insert (logand code #xFFFFFF))
 		(setq i (1+ i)))