NOTE: This patch has been committed.
APPROVE COMMIT
mule-packages/mule-base/ChangeLog addition:
2007-07-23 Aidan Kehoe <kehoea(a)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)
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches