Mercurial > hg > xemacs-beta

changeset 4884:29fb3baea939

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix the bugs necessary to resolve the trivial test failures in mule-tests.el lisp/ChangeLog addition: 2010-01-26 Aidan Kehoe <kehoea@parhasard.net> * mule/vietnamese.el (viscii): Correct the mapping here, #xA6 is actually *SMALL* LETTER A WITH CIRCUMFLEX AND HOOK ABOVE. * mule/cyrillic.el (koi8-c): Correct the mapping here, #x8C is actually ?\u04D9. Add a case mapping for it. tests/ChangeLog addition: 2010-01-26 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Only give the list of character sets in HELLO once; correct it to reflect its current contents and the extant character sets. etc/ChangeLog addition: 2010-01-26 Aidan Kehoe <kehoea@parhasard.net> * HELLO: Encode the Arabic in arabic-iso8859-6 once more; delete the old, experimentally-encoded Thai.
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 26 Jan 2010 02:22:10 +0000
parents f730384b8ddf
children 1e9078742fa7 a47abe9c47f2
files etc/ChangeLog etc/HELLO lisp/ChangeLog lisp/mule/cyrillic.el lisp/mule/vietnamese.el tests/ChangeLog tests/automated/mule-tests.el
diffstat 7 files changed, 40 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/etc/ChangeLog	Sun Jan 24 19:56:31 2010 +0000
+++ b/etc/ChangeLog	Tue Jan 26 02:22:10 2010 +0000
@@ -1,3 +1,8 @@
+2010-01-26  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* HELLO: Encode the Arabic in arabic-iso8859-6 once more; delete
+	the old, experimentally-encoded Thai.
+
 2010-01-04  Jerry James  <james@xemacs.org>
 
 	* Emacs.ad: Change /usr/lib/X11 to /usr/share/X11.
--- a/etc/HELLO	Sun Jan 24 19:56:31 2010 +0000
+++ b/etc/HELLO	Tue Jan 26 02:22:10 2010 +0000
@@ -5,7 +5,7 @@
 
 ---------------------------------------------------------
 Amharic	($(3"c!<!N"^(B)	$(3!A!,!>(B
-Arabic (%Gةّيبرعلا%@)	%Gمكيلع%@ %Gمالّسلا%@
+Arabic ([2],GIqjHQYdG[0](B)	[2],GecjdY[0](B [2],GeGdqSdG[0](B
 Croatian (Hrvatski)	Bog (Bok), Dobar dan
 Czech (,Bh(Besky)		Dobr,B}(B den
 Danish (Dansk)		Hej, Goddag
@@ -30,7 +30,6 @@
 Spanish (Espa,Aq(Bol)	,A!(BHola!
 Swedish (Svenska)	Hej, Goddag
 Tajik			,LAP[^\(B
-Thai ($(?@0R0I0R0d070B0(B)		$(?J0G8J04H$0C8:0(B, $(?J0G8J04H$2P0(B
 
 Tigrigna ($(3"8#r!N"^(B)	$(3!Q!,!<"8(B
 Turkish (T,A|(Brk,Ag(Be)	Merhaba
--- a/lisp/ChangeLog	Sun Jan 24 19:56:31 2010 +0000
+++ b/lisp/ChangeLog	Tue Jan 26 02:22:10 2010 +0000
@@ -1,3 +1,10 @@
+2010-01-26  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* mule/vietnamese.el (viscii): Correct the mapping here, #xA6 is
+	actually *SMALL* LETTER A WITH CIRCUMFLEX AND HOOK ABOVE.
+	* mule/cyrillic.el (koi8-c): Correct the mapping here, #x8C is
+	actually ?\u04D9. Add a case mapping for it.
+
 2010-01-20  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* simple.el (handle-pre-motion-command-current-command-is-motion):
--- a/lisp/mule/cyrillic.el	Sun Jan 24 19:56:31 2010 +0000
+++ b/lisp/mule/cyrillic.el	Tue Jan 26 02:22:10 2010 +0000
@@ -1166,7 +1166,7 @@
   do
   (put-case-table-pair upper lower case-table))
 
-;; Support fot the languages of the Caucasus.
+;; Support for the languages of the Caucasus. Never widely used.
 (make-coding-system
  'koi8-c 'fixed-width "KOI-8, Caucasus."
  '(unicode-map
@@ -1182,7 +1182,7 @@
     (#x89 ?\u04B9) ;; CYRILLIC SMALL LETTER CHE WITH VERTICAL STROKE
     (#x8A ?\u04BB) ;; CYRILLIC SMALL LETTER SHHA
     (#x8B ?\u2580) ;; UPPER HALF BLOCK
-    (#x8C ?\u049D) ;; CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE
+    (#x8C ?\u04D9) ;; CYRILLIC SMALL LETTER SCHWA
     (#x8D ?\u04E3) ;; CYRILLIC SMALL LETTER I WITH MACRON
     (#x8E ?\u04E9) ;; CYRILLIC SMALL LETTER BARRED O
     (#x8F ?\u04EF) ;; CYRILLIC SMALL LETTER U WITH MACRON
@@ -1311,6 +1311,7 @@
        (?\u04A3 ?\u04A2) ;; EN WITH DESCENDER
        (?\u049D ?\u049C) ;; KA WITH VERTICAL STROKE
        (?\u04BB ?\u04BA) ;; SHHA
+       (?\u04D9 ?\u04D8) ;; SCHWA
        (?\u04AF ?\u04AE) ;; STRAIGHT U
        (?\u04B1 ?\u04B0) ;; STRAIGHT U WITH STROKE
        (?\u0497 ?\u0496)) ;; ZHE WITH DESCENDER
--- a/lisp/mule/vietnamese.el	Sun Jan 24 19:56:31 2010 +0000
+++ b/lisp/mule/vietnamese.el	Tue Jan 26 02:22:10 2010 +0000
@@ -111,7 +111,7 @@
     (#xA3 ?\u1EB7) ;; SMALL LETTER A WITH BREVE AND DOT BELOW
     (#xA4 ?\u1EA5) ;; SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
     (#xA5 ?\u1EA7) ;; SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
-    (#xA6 ?\u1EA8) ;; CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+    (#xA6 ?\u1EA9) ;; SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
     (#xA7 ?\u1EAD) ;; SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
     (#xA8 ?\u1EBD) ;; SMALL LETTER E WITH TILDE
     (#xA9 ?\u1EB9) ;; SMALL LETTER E WITH DOT BELOW
--- a/tests/ChangeLog	Sun Jan 24 19:56:31 2010 +0000
+++ b/tests/ChangeLog	Tue Jan 26 02:22:10 2010 +0000
@@ -1,3 +1,9 @@
+2010-01-26  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* automated/mule-tests.el:
+	Only give the list of character sets in HELLO once; correct it to
+	reflect its current contents and the extant character sets.
+
 2010-01-14  Ben Wing  <ben@xemacs.org>
 
 	* automated/mule-tests.el (featurep):
--- a/tests/automated/mule-tests.el	Sun Jan 24 19:56:31 2010 +0000
+++ b/tests/automated/mule-tests.el	Tue Jan 26 02:22:10 2010 +0000
@@ -551,25 +551,23 @@
   ;;---------------------------------------------------------------
   (with-temp-buffer
     (insert-file-contents (locate-data-file "HELLO"))
-    (Assert-equal 
-             ;; The sort is to make the algorithm of charsets-in-region
-             ;; irrelevant.
-             (sort (charsets-in-region (point-min) (point-max))
-                   #'string<)
-             '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5
-               ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208
-               japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201
-               korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis
-               vietnamese-viscii-lower))
-    (Assert-equal 
-             (sort (charsets-in-string (buffer-substring (point-min)
-							 (point-max)))
-                   #'string<)
-             '(ascii chinese-big5-1 chinese-gb2312 cyrillic-iso8859-5
-               ethiopic greek-iso8859-7 hebrew-iso8859-8 japanese-jisx0208
-               japanese-jisx0212 jit-ucs-charset-0 katakana-jisx0201
-               korean-ksc5601 latin-iso8859-1 latin-iso8859-2 thai-xtis
-               vietnamese-viscii-lower)))
+    (let ((sorted-charsets-in-HELLO
+	   '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312
+	     cyrillic-iso8859-5 ethiopic greek-iso8859-7
+	     hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212
+	     katakana-jisx0201 korean-ksc5601 latin-iso8859-1
+	     latin-iso8859-2 vietnamese-viscii-lower)))
+      (Assert-equal 
+       ;; The sort is to make the algorithm of charsets-in-region
+       ;; irrelevant.
+       (sort (charsets-in-region (point-min) (point-max))
+	     #'string<)
+       sorted-charsets-in-HELLO)
+      (Assert-equal 
+       (sort (charsets-in-string (buffer-substring (point-min)
+						   (point-max)))
+	     #'string<)
+       sorted-charsets-in-HELLO)))
 
   ;;---------------------------------------------------------------
   ;; Language environments, and whether the specified values are sane.