(ccl-dump-write-const-string): Fix previous

change.

(ccl-dump-write-const-string): Fix previous
change.
6f0e87cb · Kenichi Handa · 08dcb092 · 6f0e87cb
Commit 6f0e87cb authored Mar 03, 2006 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/international/ccl.el lisp/international/ccl.el +1 -1

No files found.
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -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)))