* emu-e20.el (ccl-use-symbol-as-program): Use

`ccl-vector-program-execute-on-string' if it is defined.

diff --git a/ChangeLog b/ChangeLog
index 6344fbd..d36fc7a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,11 @@
 1998-08-27  Tanaka Akira  <akr@jaist.ac.jp>
 
         * emu-e20.el (ccl-use-symbol-as-program): Use
+       `ccl-vector-program-execute-on-string' if it is defined.
+
+1998-08-27  Tanaka Akira  <akr@jaist.ac.jp>
+
+        * emu-e20.el (ccl-use-symbol-as-program): Use
        `ccl-execute-on-string' instead of `make-coding-system' for
        avoiding the error "Coding system already exists".
 

diff --git a/emu-e20.el b/emu-e20.el
index 7ac0bda..70a67ac 100644 (file)
--- a/emu-e20.el
+++ b/emu-e20.el
@@ -174,7 +174,10 @@ TABLE defaults to the current buffer's category table."
       '(1 ((read r0) (loop (write-read-repeat r0)))))
     (condition-case nil
        (progn
-         (ccl-execute-on-string
+         (funcall
+            (if (fboundp 'ccl-vector-program-execute-on-string)
+                'ccl-vector-program-execute-on-string
+              'ccl-execute-on-string)
            'ew-ccl-identity-program
            (make-vector 9 nil)
            "")