[COMMIT] Fix some assertions in latin-unity

NOTE: This patch has been committed. mule-packages/latin-unity/ChangeLog addition: 2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; * latin-unity-latin10.el (charsetp): * latin-unity-latin10.el (coding-system-p): * latin-unity-latin7.el (charsetp): * latin-unity-latin7.el (coding-system-p): * latin-unity-latin8.el (charsetp): * latin-unity-latin8.el (coding-system-p): * latin-unity-latin9.el (charsetp): * latin-unity-latin9.el (coding-system-p): I didn't understand assert's calling conventions when writing this code, and as a result an assertion failure doesn't show the string I intended it to. XEmacs Packages source patch: Diff command: cvs -q diff -u Files affected: mule-packages/latin-unity/latin-unity-latin9.el mule-packages/latin-unity/latin-unity-latin8.el mule-packages/latin-unity/latin-unity-latin7.el mule-packages/latin-unity/latin-unity-latin10.el Index: mule-packages/latin-unity/latin-unity-latin10.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin10.el,v retrieving revision 1.2 diff -u -u -r1.2 latin-unity-latin10.el --- mule-packages/latin-unity/latin-unity-latin10.el 2005/02/15 22:22:47 1.2 +++ mule-packages/latin-unity/latin-unity-latin10.el 2006/06/25 09:33:07 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin10.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-16)) +(assert (charsetp (find-charset 'latin-iso8859-16)) t "`latin-euro-standards' didn't provide a Latin 10 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-16)) +(assert (coding-system-p (find-coding-system 'iso-8859-16)) t "`latin-euro-standards' didn't provide a Latin 10 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-10" language-info-alist) + (assoc "Latin-10" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 10 language environment!") (provide 'latin-unity-latin10) Index: mule-packages/latin-unity/latin-unity-latin7.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin7.el,v retrieving revision 1.2 diff -u -u -r1.2 latin-unity-latin7.el --- mule-packages/latin-unity/latin-unity-latin7.el 2005/02/15 22:22:47 1.2 +++ mule-packages/latin-unity/latin-unity-latin7.el 2006/06/25 09:33:07 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin7.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-13)) +(assert (charsetp (find-charset 'latin-iso8859-13)) t "`latin-euro-standards' didn't provide a Latin 7 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-13)) +(assert (coding-system-p (find-coding-system 'iso-8859-13)) t "`latin-euro-standards' didn't provide a Latin 7 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-7" language-info-alist) + (assoc "Latin-7" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 7 language environment!") (provide 'latin-unity-latin7) Index: mule-packages/latin-unity/latin-unity-latin8.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin8.el,v retrieving revision 1.2 diff -u -u -r1.2 latin-unity-latin8.el --- mule-packages/latin-unity/latin-unity-latin8.el 2005/02/15 22:22:47 1.2 +++ mule-packages/latin-unity/latin-unity-latin8.el 2006/06/25 09:33:07 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin8.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-14)) +(assert (charsetp (find-charset 'latin-iso8859-14)) t "`latin-euro-standards' didn't provide a Latin 8 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-14)) +(assert (coding-system-p (find-coding-system 'iso-8859-14)) t "`latin-euro-standards' didn't provide a Latin 8 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-8" language-info-alist) + (assoc "Latin-8" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 8 language environment!") (provide 'latin-unity-latin8) Index: mule-packages/latin-unity/latin-unity-latin9.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin9.el,v retrieving revision 1.7 diff -u -u -r1.7 latin-unity-latin9.el --- mule-packages/latin-unity/latin-unity-latin9.el 2005/02/15 22:22:48 1.7 +++ mule-packages/latin-unity/latin-unity-latin9.el 2006/06/25 09:33:07 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin9.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-16)) +(assert (charsetp (find-charset 'latin-iso8859-16)) t "`latin-euro-standards' didn't provide a Latin 9 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-15)) +(assert (coding-system-p (find-coding-system 'iso-8859-15)) t "`latin-euro-standards' didn't provide a Latin 9 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-9" language-info-alist) + (assoc "Latin-9" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 9 language environment!") (provide 'latin-unity-latin9) -- Santa Maradona, priez pour moi!