X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pccl-om.el;h=6d59923e6d34662a771c33d66c2e57339d82487c;hb=3abec9e84ddd8702fa3587bdf7e90363086e4baf;hp=3ab03781c84ba3bb6f7de0a860e53590f0a8880a;hpb=8ea0cf57c248b6a4ba2f73288cc1b7cad582e171;p=elisp%2Fapel.git diff --git a/pccl-om.el b/pccl-om.el index 3ab0378..6d59923 100644 --- a/pccl-om.el +++ b/pccl-om.el @@ -4,7 +4,7 @@ ;; Copyright (C) 1998 Tanaka Akira ;; Author: Tanaka Akira -;; Shuhei KOBAYASHI +;; Shuhei KOBAYASHI ;; Keywords: emulation, compatibility, Mule ;; This file is part of APEL (A Portable Emacs Library). @@ -48,16 +48,14 @@ CODING-SYSTEM, DECODER and ENCODER must be symbol." (defun ccl-execute (ccl-prog reg) "Execute CCL-PROG with registers initialized by REGISTERS. -If CCL-PROG is symbol, it is dereferenced. -\[Emacs 20.3 emulating function]" +If CCL-PROG is symbol, it is dereferenced." (exec-ccl (if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog) reg)) (defun ccl-execute-on-string (ccl-prog status string &optional contin) "Execute CCL-PROG with initial STATUS on STRING. -If CCL-PROG is symbol, it is dereferenced. -\[Emacs 20.3 emulating function]" +If CCL-PROG is symbol, it is dereferenced." (exec-ccl-string (if (symbolp ccl-prog) (symbol-value ccl-prog) ccl-prog) status string))