latin-unity Could you guys try this patch? This should fix it, conceptually. If it doesn't, there are some other severe problems with the whole latin-unity approach, I'm afraid. I don't have a comprehensive test suite, so I can't be sure it will work for you. Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/ChangeLog,v retrieving revision 1.50 diff -u -r1.50 ChangeLog --- ChangeLog 16 Feb 2007 09:10:18 -0000 1.50 +++ ChangeLog 16 Feb 2007 09:21:32 -0000 ＠＠ -0,0 +1,8 ＠＠ +2007-02-16 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * latin-unity.el (latin-unity-representations-present-region): + Assume C1 characters map to themselves, as is true for all + ISO-8859-X coding systems. Should fix the bug reported by + Joachim Schrod and Fabrice Popineau. See + <ire6dxp3.fsf(a)esemetz.metz.supelec.fr&gt;. + Index: latin-unity.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity.el,v retrieving revision 1.16 diff -u -r1.16 latin-unity.el --- latin-unity.el 16 Feb 2007 09:10:18 -0000 1.16 +++ latin-unity.el 16 Feb 2007 09:21:32 -0000 ＠＠ -491,12 +491,27 ＠＠ ;;(setq skipchars (concat skipchars latin-unity-latin-jisx0201)) (setq skipchars (concat skipchars (list ch))) (setq asets (logior flag asets))) + ;; Control-1 hack + ;; C1 characters map to themselves in all ISO 8859 coding + ;; systems. So we ignore them in the feasibility computation. + ;; #### It would be nice to unify Windows-12xx charsets among + ;; themselves. Then add a local variable c1sets, and treat + ;; skipchars as in the default clause, below. This requires + ;; deciding how to treat C1 characters when graphic characters + ;; are also present in the same range. What Would Gates Do? + ;; This will also require an interface change. This function + ;; will need to return (lsets c1set asets), which is why I'm + ;; not doing the generalization yet. + ((eq cs 'control-1) + ;; minor optimization + (setq skipchars (concat "\200-\237" skipchars))) (t ;; #### actually we can do the whole charset here ;; precompute and set a property on the cs symbol (setq skipchars (concat skipchars (list ch))) - (when (= flag 0) (setq lsets (logior latin-unity-non-latin-bit-flag lsets))) - (setq lsets (logior flag lsets))))) + (if (= flag 0) + (setq lsets (logior latin-unity-non-latin-bit-flag lsets)) + (setq lsets (logior flag lsets)))))) ;; The characters skipped here can't change asciisets (skip-chars-forward skipchars)))) (cons lsets asets))) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches