Commits

aidan  committed 9514349

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

  • Participants
  • Parent commits 4d2f18c

Comments (0)

Files changed (2)

File lisp/ChangeLog

+2009-10-01  Aidan Kehoe  <kehoea@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. 
+
 2008-07-16  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* utf.el (utf-16-ccl-decode):
 
 1998-03-27  Miyashita Hisashi  <himi@bird.scphys.kyoto-u.ac.jp>
 
-	* MULE-UCS 0.01 (YUME:$BL4(B) Released.
+	* MULE-UCS 0.01 (YUME:$(BL4(B) Released.
 	

File lisp/mucs-ccl.el

     (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.