From 967176d10c852f1595003556709191b06b1ea877 Mon Sep 17 00:00:00 2001 From: akr Date: Thu, 28 Dec 2000 11:16:57 +0000 Subject: [PATCH] * pccl-20.el (ccl-compat): new advice for `make-coding-system' of XEmacs to handle Emacs style CCL coding system definition. --- ChangeLog | 5 +++++ pccl-20.el | 20 ++++++++++++++++++++ 2 files changed, 25 insertions(+) diff --git a/ChangeLog b/ChangeLog index 0af877f..b5532b8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-12-28 Tanaka Akira + + * pccl-20.el (ccl-compat): new advice for `make-coding-system' of + XEmacs to handle Emacs style CCL coding system definition. + 2000-12-28 Kenichi Handa * static.el: Doc-string fixed. diff --git a/pccl-20.el b/pccl-20.el index b95244a..0a67371 100644 --- a/pccl-20.el +++ b/pccl-20.el @@ -48,6 +48,26 @@ (eval-and-compile + (static-if (featurep 'xemacs) + (defadvice make-coding-system (before ccl-compat (name type &rest ad-subr-args) activate) + (when (and (integerp type) + (eq type 4) + (characterp (ad-get-arg 2)) + (stringp (ad-get-arg 3)) + (consp (ad-get-arg 4)) + (symbolp (car (ad-get-arg 4))) + (symbolp (cdr (ad-get-arg 4)))) + (setq type 'ccl) + (setq ad-subr-args + (list + (ad-get-arg 3) + (append + (list + 'mnemonic (char-to-string (ad-get-arg 2)) + 'decode (symbol-value (car (ad-get-arg 4))) + 'encode (symbol-value (cdr (ad-get-arg 4)))) + (ad-get-arg 5))))))) + (if (featurep 'xemacs) (defun make-ccl-coding-system (name mnemonic docstring decoder encoder) "\ -- 1.7.10.4