From: akr <akr>
Date: Tue, 25 Aug 1998 08:08:21 +0000 (+0000)
Subject: * ew-bq.el (ew-ccl-untrusted-eof-block): Set boolean value.
X-Git-Tag: doodle-1_9_2~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dc2a6c1c50d7b46a9727ab05d4f67e49bfeaed2a;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index d89f15d..b2bc23f 100644
--- 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
--- 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