User: aidan Date: 06/06/25 11:36:40 Modified: packages/mule-packages/latin-unity ChangeLog latin-unity-latin10.el latin-unity-latin7.el latin-unity-latin8.el latin-unity-latin9.el Log: Fix some assertions in latin-unity. Revision Changes Path 1.46 +14 -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.45 retrieving revision 1.46 diff -u -p -r1.45 -r1.46 --- ChangeLog 2006/05/03 12:04:44 1.45 +++ ChangeLog 2006/06/25 09:36:39 1.46 ＠＠ -1,3 +1,17 ＠＠ +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. + 2006-05-03 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.17 released. 1.3 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin10.el Index: latin-unity-latin10.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin10.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- latin-unity-latin10.el 2005/02/15 22:22:47 1.2 +++ latin-unity-latin10.el 2006/06/25 09:36:39 1.3 ＠＠ -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) 1.3 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin7.el Index: latin-unity-latin7.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin7.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- latin-unity-latin7.el 2005/02/15 22:22:47 1.2 +++ latin-unity-latin7.el 2006/06/25 09:36:39 1.3 ＠＠ -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) 1.3 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin8.el Index: latin-unity-latin8.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin8.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- latin-unity-latin8.el 2005/02/15 22:22:47 1.2 +++ latin-unity-latin8.el 2006/06/25 09:36:40 1.3 ＠＠ -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) 1.8 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin9.el Index: latin-unity-latin9.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin9.el,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- latin-unity-latin9.el 2005/02/15 22:22:48 1.7 +++ latin-unity-latin9.el 2006/06/25 09:36:40 1.8 ＠＠ -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)