CVS update by aidan packages/mule-packages/mule-ucs/lisp ...

  User: aidan   
  Date: 09/10/01 21:27:11

  Modified:    packages/mule-packages/mule-ucs/lisp ChangeLog mucs-ccl.el
Log:
[COMMIT] Use XEmacs syntax in #'make-coding-system, mucs-ccl.e

Revision  Changes    Path
1.14      +9 -1      XEmacs/packages/mule-packages/mule-ucs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-ucs/lisp/ChangeLog,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- ChangeLog	2008/07/26 07:46:51	1.13
+++ ChangeLog	2009/10/01 19:27:11	1.14
@@ -1,3 +1,11 @@
+2009-10-01  Aidan Kehoe  <[email protected]>
+
+	* 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. 
+
 2008-07-16  Aidan Kehoe  <[email protected]>
 
 	* utf.el (utf-16-ccl-decode):
@@ -2620,5 +2628,5 @@
 
 1998-03-27  Miyashita Hisashi  <[email protected]>
 
-	* MULE-UCS 0.01 (YUME:$BL4(B) Released.
+	* MULE-UCS 0.01 (YUME:$(BL4(B) Released.
 	



1.2       +7 -4      XEmacs/packages/mule-packages/mule-ucs/lisp/mucs-ccl.el

Index: mucs-ccl.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-ucs/lisp/mucs-ccl.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- mucs-ccl.el	2001/12/12 11:36:00	1.1
+++ mucs-ccl.el	2009/10/01 19:27:11	1.2
@@ -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.