[COMMIT] Use XEmacs syntax in #'make-coding-system, mucs-ccl.el

[Aidan Kehoe]

APPROVE COMMIT

NOTE: This patch has been committed.

mule-packages/mule-ucs/lisp/ChangeLog addition:

2009-10-01  Aidan Kehoe  <kehoea at parhasard.net>

	* mucs-ccl.el (mucs-ccl-define-temporal-coding-system): 
	Use the actual XEmacs syntax for #'make-coding-system system here,
	when creating a CCL coding system. This fixes the package build on
	21.5, which now has a compiler macro that requires a reasonable
	number of arguments to the function. 


XEmacs Packages (existing ChangeLogs) source patch:
Diff command:   cvs -q diff -Nu
Files affected: mule-packages/mule-ucs/lisp/mucs-ccl.el
===================================================================
RCS

Index: mule-packages/mule-ucs/lisp/mucs-ccl.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-ucs/lisp/mucs-ccl.el,v
retrieving revision 1.1.1.1
diff -u -u -r1.1.1.1 mucs-ccl.el
--- mule-packages/mule-ucs/lisp/mucs-ccl.el	2001/12/12 11:36:00	1.1.1.1
+++ mule-packages/mule-ucs/lisp/mucs-ccl.el	2009/10/01 19:26:57
@@ -63,10 +63,13 @@
     (if (not (coding-system-p
 	      'mucs-ccl-temporary))
 	(make-coding-system
-	 'mucs-ccl-temporary
-	 4 ?*
-	 "Temporary coding-system privately used by MUCS-CCL"
-	 '(mucs-ccl-tmp-ccl-prog . mucs-ccl-tmp-ccl-prog)))))
+         'mucs-ccl-temporary 'ccl
+         "Temporary coding-system privately used by MUCS-CCL"
+	 `(encode mucs-ccl-temp-ccl-prog
+           decode ,(ccl-compile
+                    '(1 (loop
+                          (read r0)
+                          (write-repeat r0)))))))))
 
 ;;; CCL facility checker.
 

-- 
¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir
precipitadamente de la aldea por culpa de la escasez de rinocerontes?