1. xemacs
  2. mule-ucs

Source

mule-ucs / lisp / mucs-ccl.el

Diff from to

File lisp/mucs-ccl.el

  • Ignore whitespace
     (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.