* ew-bq.el (ew-ccl-untrusted-eof-block): Set boolean value.

diff --git a/ChangeLog b/ChangeLog
index d89f15d..b2bc23f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-08-25  Tanaka Akira      <akr@jaist.ac.jp>
 
+       * ew-bq.el (ew-ccl-untrusted-eof-block): Set boolean value. 
+
+1998-08-25  Tanaka Akira      <akr@jaist.ac.jp>
+
        * ew-bq.el (ew-ccl-use-symbol): New variable.
        (ew-ccl-untrusted-eof-block): New variable.
        (ew-make-ccl-coding-system): New function.

diff --git a/ew-bq.el b/ew-bq.el
index ee957f5..4cbe28d 100644 (file)
--- a/ew-bq.el
+++ b/ew-bq.el
@@ -23,10 +23,10 @@
     (let ((status (make-vector 9 nil)))
       (ccl-execute-on-string
        (ccl-compile
-        '(0 (read r0) (r0 = 2)))
+        '(0 (read r0) (r0 = 1)))
        status
        "")
-      (aref status 0))))
+      (= (aref status 0) 0))))
 
 (defun ew-make-ccl-coding-system (coding-system mnemonic doc-string decoder encoder)
   (make-coding-system