File fix-build-failure-in-mule-ucs.patch of Package xemacs-packages

--- packages/mule-packages/mule-ucs/lisp/trans-util.el	2001/12/12 11:35:56	1.1.1.1
+++ packages/mule-packages/mule-ucs/lisp/trans-util.el	2007/08/08 20:43:28
@@ -24,6 +24,9 @@
 
 ;;; String to number translation functions
 
+;; This file is not compilable on a non-Mule emacs. 
+(eval-when-compile (require 'ccl))
+
 (defun string-to-number-with-radix (string radix)
   (let ((i 0)
 	(j (length string))
--- packages/mule-packages/mule-ucs/lisp/un-define.el	2005/05/05 17:23:10	1.4
+++ packages/mule-packages/mule-ucs/lisp/un-define.el	2007/08/08 20:43:28
@@ -854,12 +854,6 @@
 
 ) ;; un-define package definition ends here
 
-
-;;; font encoder setup
-(add-to-list
- 'font-ccl-encoder-alist
- '("iso10646" . unicode-font-encoder))
-
 ; font encoder setup (for Meadow)
 (if (featurep 'meadow)
     (w32-regist-font-encoder