[COMMIT] Switch the redisplay CCL program to the new syntax for mule-to-unicode

[Aidan Kehoe]

NOTE: This patch has been committed.

APPROVE COMMIT

mule-packages/mule-base/ChangeLog addition:

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. 


XEmacs Packages source patch:
Diff command:   cvs -q diff -Nu
Files affected: mule-packages/mule-base/fsf-compat-unicode.el
===================================================================
RCS

Index: mule-packages/mule-base/fsf-compat-unicode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/mule-base/fsf-compat-unicode.el,v
retrieving revision 1.2
diff -u -u -r1.2 fsf-compat-unicode.el
--- mule-packages/mule-base/fsf-compat-unicode.el	2006/12/01 21:27:39	1.2
+++ mule-packages/mule-base/fsf-compat-unicode.el	2007/07/23 21:18:52
@@ -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."))
 

-- 
On the quay of the little Black Sea port, where the rescued pair came once
more into contact with civilization, Dobrinton was bitten by a dog which was
assumed to be mad, though it may only have been indiscriminating. (Saki)