CVS update by aidan packages/mule-packages/leim/quail ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 08/12/31 14:52:52

  Modified:    packages/mule-packages/leim/quail ipa-21.5.el
Log:
Correct a mapping in leim/quail/ipa-21.5.el.

Revision  Changes    Path
1.37      +8 -0      XEmacs/packages/mule-packages/leim/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/leim/ChangeLog,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -p -r1.36 -r1.37
--- ChangeLog	2008/01/15 09:11:05	1.36
+++ ChangeLog	2008/12/31 13:52:49	1.37
@@ -1,3 +1,11 @@
+2008-12-31  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* quail/ipa-21.5.el ("kirshenbaum-ipa"):
+	Correct the mapping for P, it should be to U+0278, as it is in the
+	X-SAMPA map. 
+	* quail/ipa-21.5.el (x-sampa-prepend-to-keymap-entry):
+	Correct the syntax of a lambda's quote, use #' instead of '. 
+
 2008-01-15  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.27 released.



1.2       +5 -5      XEmacs/packages/mule-packages/leim/quail/ipa-21.5.el

Index: ipa-21.5.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/leim/quail/ipa-21.5.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- ipa-21.5.el	2006/08/04 19:46:22	1.1
+++ ipa-21.5.el	2008/12/31 13:52:52	1.2
@@ -153,7 +153,7 @@ incorrectly, as separate from the modifi
  ("M" "ɱ")	;; Labio-dental nasal			U+0271
  ("N" "Å‹")	;; Velar nasal				U+014B
  ("O" "É”")	;; Low-mid back rounded vowel		U+0254
- ("P" "Φ")	;; Voiceless bilabial fricative		U+03A6
+ ("P" "ɸ")	;; Voiceless bilabial fricative		U+0278
  ("Q" "É£")	;; Voiced velar fricative		U+0263
  ("R" ["Ê€"	;; Alveolar trill			U+0280
        "Éš"])    ;; Rhotacised schwa			U+025A
@@ -273,10 +273,10 @@ string.  "
   (list 
    (apply 'vector 
 	  (mapcar 
-	   '(lambda (entry)
-	      (assert (char-or-string-p entry) t)
-	      (format "%s%s" to-prepend 
-		      (if (integerp entry) (string entry) entry)))
+	   #'(lambda (entry)
+               (assert (char-or-string-p entry) t)
+               (format "%s%s" to-prepend 
+                       (if (integerp entry) (string entry) entry)))
 	   quail-keymap))))
 
 (defun x-sampa-underscore-implosive (input-string length)