X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pccl-20.el;h=0a673710745bfd4542fb940fc23ac4bbd5796c12;hb=72f1a2a9c510a6cbe28e88faf73eafdb91bb3131;hp=b95244a19fa6210564d6d3f55ceca70707cecb9f;hpb=ad3ba73586a7e06f1311726585c1e2c86995bda2;p=elisp%2Fapel.git

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