From: akr <akr>
Date: Thu, 27 Aug 1998 04:32:57 +0000 (+0000)
Subject: * emu-e20.el (ccl-use-symbol-as-program): Use
X-Git-Tag: apel-8_16~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87bc8282a36a59e7486cc6f6a97f419f67849220;p=elisp%2Fapel.git

* 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
--- 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
--- 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)
 	    "")