CVS update by stephent packages/mule-packages/latin-unity ...

[xemacs-cvs at xemacs.org]

  User: stephent
  Date: 07/02/16 15:50:16

  Modified:    packages/mule-packages/latin-unity ChangeLog latin-unity.el
Log:
Seems to be fixed; ship it. <87vei2cfsf.fsf at uwakimon.sk.tsukuba.ac.jp>

Revision  Changes    Path
1.51      +8 -0      XEmacs/packages/mule-packages/latin-unity/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/ChangeLog,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -p -r1.50 -r1.51
--- ChangeLog	2007/02/16 09:10:18	1.50
+++ ChangeLog	2007/02/16 14:50:15	1.51
@@ -1,5 +1,13 @@
 2007-02-16  Stephen J. Turnbull  <stephen at xemacs.org>
 
+	* 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 at esemetz.metz.supelec.fr>.
+
+2007-02-16  Stephen J. Turnbull  <stephen at xemacs.org>
+
 	* latin-unity.el: Documentation clarification.
 
 2006-08-14  Norbert Koch  <viteno at xemacs.org>



1.17      +17 -2     XEmacs/packages/mule-packages/latin-unity/latin-unity.el

Index: latin-unity.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- latin-unity.el	2007/02/16 09:10:18	1.16
+++ latin-unity.el	2007/02/16 14:50:15	1.17
@@ -491,12 +491,27 @@ character sets.  BUFFER defaults to the 
 	      ;;(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)))