changeset 90343:6f8745145ccc

(ccl-dump-write-const-string): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Fri, 03 Mar 2006 11:36:46 +0000
parents c649841811e1
children d4661241b1fa
files lisp/international/ccl.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))