X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pccl-om.el;h=9f9a26f8d7f600ec83c09c9683254f18374935fd;hb=4dab7f29b9a780af83b1856513af87909a62a444;hp=3ab03781c84ba3bb6f7de0a860e53590f0a8880a;hpb=8ea0cf57c248b6a4ba2f73288cc1b7cad582e171;p=elisp%2Fapel.git diff --git a/pccl-om.el b/pccl-om.el index 3ab0378..9f9a26f 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). @@ -21,8 +21,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Code: @@ -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))