CVS update by aidan packages/mule-packages/mule-base, fsf-compat-unicode.el ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/07/23 23:20:26

  Modified:    packages/mule-packages/mule-base ChangeLog
                        fsf-compat-unicode.el
Log:
Switch the redisplay CCL program to the new syntax for mule-to-unicode.

Revision  Changes    Path
1.60      +7 -0      XEmacs/packages/mule-packages/mule-base/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-base/ChangeLog,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -p -r1.59 -r1.60
--- ChangeLog	2007/05/22 06:38:31	1.59
+++ ChangeLog	2007/07/23 21:20:22	1.60
@@ -1,3 +1,10 @@
+2007-07-23  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* fsf-compat-unicode.el (eval-when-compile): 
+	Switch to the << 7-bits approach for arguments to mule-to-unicode,
+	to better accord with the rest of the CCL calls. Already applied
+	to the C core. 
+
 2007-05-22  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.50 released.



1.3       +2 -2      XEmacs/packages/mule-packages/mule-base/fsf-compat-unicode.el

Index: fsf-compat-unicode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-base/fsf-compat-unicode.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- fsf-compat-unicode.el	2006/12/01 21:27:39	1.2
+++ fsf-compat-unicode.el	2007/07/23 21:20:22	1.3
@@ -55,10 +55,10 @@
     (eval
      '(define-ccl-program fsf-compat-ccl-encode-to-ucs-2 
        `(1 
-	 ((r1 = (r1 << 8)) 
+	 ((r1 = (r1 << 7)) 
 	  (r1 = (r1 | r2)) 
 	  (mule-to-unicode r0 r1) 
-	  (r1 = (r0 >> 8)) 
+	  (r1 = (r0 >> 7)) 
 	  (r2 = (r0 & 255)))) 
        "CCL program to transform Mule characters to UCS-2."))